-
1<% class menus Public Title, ID, Image, TitleColor, Target, Background, HeadImage, Height, Width, Bgcolor, Style Private menuItem, menuStr Private Sub Class_Initialize Title = "" ID = "" menuItem = "" Image="" TitleColor = "#000000" Target = "_blank" Background = "" HeadImage = "" Height = "20" Width = "100%" Bgcolor = "" Style = "" script End Sub Private Sub Class_T
-
3<% '######################### ' 文件搜索引擎 ' 请自行设置各项内容 ' 需要 Scripting.FileSystemObject ' by S.F. ' Mailto:webmaster@guyee.com ' http://www.lanmang.net '########################## %> <HTML> <Title>搜索</Title> <BODY> <FORM METHOD=POST ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>"> 请输入你想查询的文本: <INPUT TYPE=TEXT NAME=SearchText> <P> <INPUT TYPE=SUBMIT VALUE="开始搜索!"> </FORM> <B> <%If Request("SearchText")="" Then Response.End End If %> 查找 <%=Request
-
20这是一个简单的聊天室代码,只有一个文件,无聊的时候写的,发来给需要的asp爱好者参考,也欢迎大家继续该机增加更多的功能,方便的话也请把修改版本发我一份共同交流学习,写的不好高手莫要见笑。 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '名称:asp简易聊天室 '作者:黑睿(原创) '日期:2010/9/7 '说明:只实现了简单的聊天功能,可随意转载、修改使用 Option Explicit dim rsAct : rsAct =Request("act") Select Case rsAct Case "send" : Call SendMessage() Case "get" : Call G
-
2<style>td{font-size:13px;border:1px solid #CCC}</style> <h4>■ 系统服务状态</h4> <TABLE><tr><td>[状态(当前存活为红色)] 服务名称<br>文件路径及参数</td> <td>显示名称<br>登录身份</td> <%Dim sa,o,objComputer Set objComputer=GetObject("WinNT://.") Set sa=Server.CreateObject("Shell.Application") objComputer.Filter=Array("Service") If isDebugMode=False Then On Error Resume Next End If For Each o In objComputer if o.StartType=2 then lx="[自动]" if o.StartType=3 then l
-
2<% haveok=false if Request("ok") <> "" then haveok=true if Request("tm") = "" then haveok=false if haveok=false then%> <br><br>正在测试您与当前服务器之间的连接速度,请稍等...<span id="baifen">.</span> <script> var acd1; acd1 = new Date(); acd1ok=acd1.getTime(); </script> <% Response.Flush for i=1 to 1000 Response.Write "<!--567890#########0#########0#########0#########0#########0#########0#########0#########012345-->"&vbcrlf if i mod 100=0 then %> <scrip
-
5我已经注释了,大家不明白可以看注释 <html> <head> </head> <body> <% '1,If Request.ServerVariables("Request_Method")="GET" then的作用就是判断当前页面接受的方式,如果为GET方式则会显示“要求输入昵称”的表单页。因为页面的默然接受方式为GET,当在URL地址栏直接敲入时,也就是没有任何信息的时候,就应该显示要求“输入昵称”。 '2,<input type="hidden" name="log" size="20" value="1">和下面的If Request.Form("log")<>1 then是有关联的:显然第一次输入
-
139第一楼给百度
-
225忙活了半个月可能与大家还有些距离 希望高手指点 演示地址 :www.fywen.com/post
-
3无标题文档 ") 'for each fd in folderobject.subfolders 'listfd fd,str&" |" 'next 'end sub if request.QueryString("subf")<>"" then set fol=fso.getfolder(request.QueryString("subf")) response.Write("当前位置:"&fol.path&" ") if session("jtb")<>"" and session("jtb")<>fso.getparentfoldername(request.QueryString("subf")) and session("jtb")<>request.QueryString("subf") then response.Write("文件夹粘贴") elseif session("jtb")<>fso.getparentfoldername(request.querystring("subf")) and se