搜索列表
-
如何实现强制登录？
【编程10000问】security.asp<%bLoggedIn = (len(session("UserName")) > 0) if bRequireLogin then' 要求登录. if Not bLoggedIn then response.redirect "login.asp?comebackto=" & _ request.servervariables("scri...
|如何|何实|实现|现强|强制|制登|登录|录？|？| -
如何一行行地读取文件？
【编程10000问】dim input(30) ' 定义一个数组,大小可随时更改.这里为了显示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObject")Set file_open=fs.OpenTextFile(file_path)n=0Do While Not file_open.AtEndOfStreamn=n+1fileline=file_open.readlineinput(i)=file...
|如何|何一|一行|行行|行地|地读|读取|取文|文件|件？|？| -
如何制作关联的下拉菜单？
【编程10000问】<form name=f1 METHOD="POST"><%OpenDB objConn, "xxxx"Set RSClass = objConn.Execute("select * from class Order by fldClass")If RSClass.EOF Then Response.Write "噢,没有记录!<BR>"ElseResponse.Write "<select NAME=""class"" style=""FONT-S...
|如何|何制|制作|作关|关联|联的|的下|下拉|拉菜|菜单|单？|？| -
如何实现在下拉菜单里输入文字？
【编程10000问】如何实现在下拉菜单里输入文字？<script>function pp(){se.options[2]=new Option(ok=(se.options[2])?se.options[2].innerText+String.fromCharCode(event.keyCode):String.fromCharCode(event.keyCode),"client")se.selectedIndex=2;}function edit(){if(se.options[2]){if(event.keyCode==8){var str=...
|如何|何实|实现|现在|在下|下拉|拉菜|菜单|单里|里输|输入|入文|文字|字？|？| -
如何编写一个创建FTP站点的函数？
【编程10000问】如何编写一个创建FTP站点的函数？Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum, Computer, Start,LogFileDirectory) Dim MSFTPSVC, FtpServer, ...
|如何|何编|编写|写一|一个|个创|创建|建F|FT|TP|P站|站点|点的|的函|函数|数？|？| -
如何随机显示图片计数器？
【编程10000问】count.asp＜ html ＞＜ head ＞＜ meta http-equiv="Content-Type"content="text/html; charset=gb2312" ＞＜title＞随风起舞之千变计数器＜/title＞＜/head＞＜body＞＜p＞＜%dim outcountfile=server.mappath("aspcount.txt")set objfile=server.createobject("scripting.filesystemobject")' 定义一个服务器组件.se...
|如何|何随|随机|机显|显示|示图|图片|片计|计数|数器|器？|？| -
如何用ASP建立Index Server查询对象并为其参数赋值？
【编程10000问】一个方法是利用Index Server query object和参数：<% Set Q= Sever.CreatObject("ixsso.Query") ' 创建查询对象. Set Util= Sever.CreatObject("ixsso.Util") Q.Query= Request("SearchString") ' 查询字段....
|如何|何用|用A|AS|SP|P建|建立|立I|In|nd|de|ex|xS|Se|er|rv|ve|er|r查|查询|询对|对象|象并|并为|为其|其参|参 -
如何检测用户第一次访问我的网站并显示友好信息？
【编程10000问】< %@ LANGUAGE="VBscript" % >< % RequestName = Request.Form("Name")RequestLeaveMeAlone = Request.Form("LeaveMeAlone")If RequestName < >"" or RequestLeaveMeAlone < >"" then' 在同一个页面中检查表单变量. Response.Cooki...
|如何|何检|检测|测用|用户|户第|第一|一次|次访|访问|问我|我的|的网|网站|站并|并显|显示|示友|友好|好信|信息|息？|？| -
如何把URL和邮件地址转换为超级链接？
【编程10000问】Function InsertHyperlinks(inText)Dim objRegExp, strBufDim objMatches, objMatchDim Value, ReplaceValue, iStart, iEnd strBuf = "" iStart = 1 iEnd = 1 Set objRegExp = New RegExp objRegExp.Pattern = "\b(www|http|\S+@)\S+\b" ' 判...
|如何|何把|把U|UR|RL|L和|和邮|邮件|件地|地址|址转|转换|换为|为超|超级|级链|链接|接？|？| -
网上考试设计思路是怎样的？
【编程10000问】global.asa < script LANGUAGE=VBScript RUNAT=Server >Sub Application_OnStart dbPath = "DBQ=" & Server.Mappath("onlinetest.mdb") dbConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbPath ...
|网上|上考|考试|试设|设计|计思|思路|路是|是怎|怎样|样的|的？|？| -
asp下载防盗链代码
【ASP编程】asp下载防盗链代码第一种: 终于对下载系统做了个防盗链措施，在下载的页面头部做了如下代码，相关代码如下： 复制代码 代码如下:<% From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.Se...
asp下载防盗链代码 -
ASP动态生成的javascript表单验证代码
【ASP编程】以网上down了一个ASP动态生成Form验证javascript的代码，自己扩容了一下。作者的大名我给忘了，不过我记得清楚，从第一条至第九条的代码都是该作者的原创。至于九至第十五条却是本人自己加的哦。而且由于本人水平有限，从第九条至第十五条不见得会条条生效啊？呵呵，其实把它贴在这里没有什么必要的，因为这点小会伎俩谁都...
ASP动态生成的javascript表单验证代码
