如何检测用户第一次访问我的网站并显示友好信息?
<%@LANGUAGE="VBscript"%><%RequestName=Request.Form("Name")RequestLeaveMeAlone=Request.Form("LeaveMeAlone")IfRequestName< >""orRequestLeaveMeAlone< >...如何用ASP建立Index Server查询对象并为其参数赋值?
一个方法是利用IndexServerqueryobject<spanstyle="FONT-FAMILY:宋体;mso-ascii-font-family:'000b';mso-hansi-font-family:'000b';mso-bidi-font-size:- 0
- 0
- 0
- 0
- 0
如何计算下载一个文件需要多长时间?
<%FunctionDownloadTime(intFileSize,strModemType)DimTimeInSeconds,ModemSpeed,strDownloadTime,AppendStringDimintYears,intWeeks,intDaysDimintHours,intMinutes,intSecondsintYears=0i...- 0
- 0
- 0
- 0
- 0
如何动态添加Form项?
<%@language=vbscript%><%Response.Expires=0%><html><head><title>星河影动之动态添加Form<spanstyle="FONT-FAMILY:宋体;mso-- 0
- 0
- 0
- 0
- 0
如何实现歌曲在线点播?
<%dimchoose,path,mydb,myset,SQL,fs,mp3'获得用户提交表单<spanlang="EN-US"style="FONT-FA- 0
- 0
- 0
- 0
- 0
如何编写TOP 10之类的排行榜?
<%@LANGUAGE="VBscript"%><%OPTIONEXPLICIT%><!--#includefile="DataConn.asp"--><!--#includefile="FuncSet.asp"--><pclass="MsoNormal"style="MARGIN:0cm0cm- 0
- 0
- 0
- 0
- 0
如何做一个文本搜索?
<%head="搜索"SearchString=Request("SearchString")count=0FunctionUnMapPath(Path) UnMapPath=Replace(Mid(Path,Len(Server.MapP- 0
- 0
- 0
- 0
- 0
如何做一个密码“生成器”?
randompassword.asp<?xml:namespaceprefix="o"ns="urn:schemas-microsoft-com:office:office"?><%Dimi,intNum,intUpper,intLower,intRand,strPartPass,genPasswordgenPassword- 0
- 0
- 0
- 0
- 0
如何实现点击数的计算?
counter.htm<?xml:namespaceprefix="o"ns="urn:schemas-microsoft-com:office:office"?><a>- 0
- 0
- 0
- 0
- 0
如何计算ASP页面的载入时间?
<%DimvarInitial_TimevarInitial_Time=TimerResponse.Write"Initial_Time=["&varInitial_Time&"]<br>"%><%ForI=1to10Response.write"随风起舞<spanlang="EN-US"styl...- 0
- 0
- 0
- 0
- 0
如何读取一个.ini文件?
<OBJECTID="agobjOraSession"RUNAT="Server"PROGID="OracleInProcServer.XOraSession"SCOPE="Application"></OBJECT><scriptLANGUAGE=VBScriptRUNAT=Server>ConstCONST_FL_N...- 0
- 0
- 0
- 0
- 0
如何用数据库制作一个多用户版的计数器?
count.asp<?xml:namespaceprefix="o"ns="urn:schemas-microsoft-com:office:office"?>'计数器的核心程序- 0
- 0
- 0
- 0
- 0
如何把URL和邮件地址转换为超级链接?
FunctionInsertHyperlinks(inText)DimobjRegExp,strBufDimobjMatches,objMatchDimValue,ReplaceValue,iStart,iEnd strBuf="" iStart=1 iEnd=1 SetobjRegExp=NewRegExp&nbs...- 0
- 0
- 0
- 0
- 0
如何实时获知多少人在线?
global.asa<scriptLANGUAGE="VBScript"RUNAT="Server">SubApplication_OnStart 'SubApplication_OnStart是好在服务器每次启动的时候激活的方法- 0
- 0
- 0
- 0
- 0
如何把Recordset转换成彩色的XML文件
<%@codepage="65001"%><!--#INCLUDEFILE="ADOVBS.INC"--><%Response.ContentType="text/xml"'- 0
- 0
- 0
- 0
- 0
如何修改被表单引用的ASP页面?
formhandler.asp<html><body><%DimRequestMethodRequestMethod=Request.ServerVariables("REQUEST_METHOD")<?xml:namespaceprefix="o"ns="urn:schemas-microsoft-com:office...- 0
- 0
- 0
- 0
- 0