Sub DoDropDown(Arr(), strSelName, onchange, strSelected, strexclude)Dim i if strSelected <> "" then ...
<%Dim objDC, objRSSet objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30' 创建数...
如何实现在下拉菜单里输入文字?<script>function pp(){se.options[2]=new Option(ok=(se.options[2])?se.options[2].innerText+String.fromCharCode...
如何利用数据库内容建立一个下拉式列表?<% myDSN="DSN=xur;uid=xur;pwd=xur"mySQL="select * from authors where AU_ID<100"set conntemp=server.create...
<% Dim bSurvey ' 是否显示调查表 const bID="1" ' 调查表的id bSurvey=false...
如何控制弹出一个NTLM验证窗口?<% Response.Status = "401 Unauthorized" Response.Addheader "WWW-Authenticate","NTLM" response.write "user=" & ...
如何让一个方框栏内的文字滚动显示?<!-- #include file="news.inc" --><%dim NewsStr(1,5)NewsStr(0,0)="下载本栏链接" NewsStr(1,0)="http://www.intels...
如何做一个检索结果带链接的检索?<% data=request.form("search_data") ' 从FORM变量集得到要查询的文件名称所要包含的字符串 p=search_folder(data,"http://jack/cgi-bin","c:...
如何终止浏览器的Cahce页面? Function Redirect( NewURL ) If Not IsEmpty( NewURL & "" ) ThenDim QuestionMark QuestionMark = Instr( NewURL,...
如何编写一个加法器?<form action="./calculation.asp"><input type="text" size="1" name="op1 value=<%Response.Write Request("op1")...
如何实现非大小写的替换?Function ReplaceNoIgnoreCase(str,replStr) If len(replStr)<1 or str="" Then ...
如何编写一个创建FTP站点的函数?Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum,&nb...
如何将访问者数目周期性地保存?<script LANGUAGE="VBScript" RUNAT="Server">SUB Session-OnStart...Application.LockApplication("visitors")=Appl...
如何编写一个过滤掉HTML代码的函数?<%Function Filterhtml(strToFilter) Dim strTemp strTemp = strToFilter While Instr(1,strTemp...
如何在ASP里建立表格?<% Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DSN=blah" ' 建立连接 Dim strSQL strSQL =...
如何在ADSI中查询用户属性?<%Dim x On error resume next'Set x = GetObject("WinNT://kenfilszwin2k/allen")strLDAP="LDAP://kenfilszwin2k/CN=Al...
如何用htmlEncode来显示Unicode?<%@ Language=VBScript %><html><head><title>千花飞舞之UNICODE编码</title></head&g...
strtitle=Request.Form("title")strFirstName=Request.Form("FirstName") strLastName=Request.Form("LastName") If Len(strtit...
<html><head><title> 千花飞舞之HTTP headERS侦测< /title></head><body><TABLE BORDER=1><tr>&...
struserlist = struserlist & "<a href='#' onclick=" & chr(34) &_"sendmsg('" & usernick & "');return false;" & chr(34) ...