当前位置 : 首页 » 知识管理 - 第1页

阅读全文

置顶 如何实现全文检索?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 4

<%@ LANGUAGE="VBscript" %>   <html>   <head>   <meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">   <meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80">   <title>星河影动之全文检索</title>   <meta name="Microsoft Border" content="tl, default"> </head>    <body BGPROPE

阅读全文

如何按时间显示最新标志

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 2

<% mytime=rs("time") '数据库中保存时间 nowtime=now() '当前时间 if datediff("d",mytime,nowtime)<1 then  '比较当前时间和数据库中时间,如相差小于1,即显示图片new.gif %> <img src="images/new.gif"> <%end if%>

阅读全文

如何显示一个文本文件?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 1

 Write(StrING)     WriteLine(StrING)     WriteBlankLines(LINES)       〈html〉     〈head〉     〈http-equiv="Content-Type" content="text/html;     charset=gb2312"〉     〈title〉春风精彩之文本文件显示〈/title〉     〈/head〉      〈body〉     <% LANGUAGE = VBScript %>     <% Const ForReading = 1, ForWriting =

阅读全文

如何编写一个过滤掉HTML代码的函数?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 3

如何编写一个过滤掉HTML代码的函数? <% Function Filterhtml(strToFilter)   Dim strTemp   strTemp = strToFilter   While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">")     strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Right(strTemp, Len(strTemp)-Instr(1,strTemp, ">"))   WEnd   Filterhtml = strTemp

阅读全文

如何用Access加密页面?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 2

<% userid = Request("userid") userpass = Request("userpass") Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("userinfo.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath userid=trim(userid) userpass=trim(userpass) sql="select * from [use

阅读全文

如何在ASP里显示进度条?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 1

response.buffer=true ' 应用缓存技术. dim lostnum ' 防止dmax过大而dstep过小. dim shownum delayshow(dstep,dmax) sub delayshow(dstep,dmax) ' dmax表示要处理多少dmax(步)才能完成全过程,dstep表示已处理的占全过程的大致百分比.   dim total ' 显示所有画面. dim dtemp ' 过渡变量. total=100 dtemp=dstep dstep=dstep+lostnum   if (dstep*total)/dmax<1 then

阅读全文

如何在读取Excel文件时创建列表的下拉菜单?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 4

< select name="XlSheet" > < % vOptions = "< option >< /option >" Do While Not oSchemaRs.EOF   If oSchemaRs("TABLE_TYPE") = "SYSTEM TABLE" Then       vOptions = vOptions & "< option >" & _             Server.htmlEncode(oSchemaRs("TABLE_NAME")) & _       "< /option >      End If   oSchem

阅读全文

如何使用数组来显示下拉菜单?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 9

Sub DoDropDown(Arr(), strSelName, onchange, strSelected, strexclude) Dim i       if strSelected <> "" then             swap arr, strSelected       end if       response.write "<select NAME='" & strSelName & "' SIZE=1 ONCHANGE='" & onchange & "'>"       For i = 0 To UBound(Arr)        

阅读全文

可以在线创建文件夹吗?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 7

folder.htm <html> <head> <title>闪亮日子之在线创建文件夹</title> </head> <body> 春风精彩<br> 在线创建文件夹</td>   <tr>     <td height="28"><form name="form1" method="post" action="creatfolder.asp"> <div align="center"><center><p>新建文件夹: <input  type="text" name="name" size="20" style="font-size: 12pt"> <inpu

阅读全文

如何实现某一页面只让特定的用户浏览?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 1

protect.asp <html> <head> <title>千花飞舞之春风精彩</title> </head> <body bgcolor="#00FFFF"> <form action="Protect.asp" method="post"> ' 精彩的要限制的页面. <input type="text" name="text"> ' 此处可注明该页面的其它内容. 姓名: <input type="password" size="20" name="password"> 口令: <input type="submit" name="B1" value="查询

阅读全文

如何在线查询本地机的文件?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 1

<html> <head> <title>随风起舞之文件查询</title> </head> <body> <p align="center" >   <b><font face="宋体" color="red" size="5">   星河影动之文件查询系统</font></b> </p> <hr> <form method="POST" action="search.asp">   <p><font color="green">请输入要查询的目录文字:   <input type="text" name="search_data" size="20">   <i

阅读全文

asp中在JScript中使用RecordSet对象的GetRows

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 1

写ASP程序时,一般情况总是使用的VBScript,不过也不只是这一种选择,也可以用JScript。但在用JScript作为ASP的语言时,比用VBScript有一些小小的不方便,比如RecordSet的GetRows方法。 在ASP中操作数据库,一般都要用到RecordSet对象,如果注重程序效率的话,可能就会用到RecordSet对象的GetRows方法,把记录集对象转换成数组,而操作数组在速度上将比用RecordSet对象的MoveNext方法快很多,而且可以在取出数组后尽早释放RecordSet对象,从而减少资源的占用,这也是优化ASP性能的一个方法。 在V

阅读全文

如何用表单在线建立目录?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 2

creatfolder.htm ' 表单文件. <form name="form1" method="post" action="folder.asp"> 创建一个文件夹: <input type="text" name="name"> <input type="submit" name="Submit" value="提交"> </form>   folder.asp <%@ LANGUAGE = "VBScript" %> <% Dim Name Name = Request("Name") set fs=createobject("scripting.file

阅读全文

怎样避免直接在地址栏敲入URL即可绕过登录页的错误?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 0

第一个办法:用两个文件来解决这个问题:userandpwd.asp和secretarticle.asp。前者只负责提供输入用户名和密码,由后者来完成验证工作。这样即使知道了asppwdrst.asp 所在的 URL,也决不会看到什么内容的。 userandpwd.asp < html > < body > < form name="form1"action= "secretarticle.asp" method_ ="POST" > < input type="hidden" name="VTI-GROUP" value=_"0" > < div align="ce

阅读全文

如何做一个随机密码产生器?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 1

<% genPassword = "" Randomize For i = 1 to 8 intNum = Int(10 * Rnd + 48) intUpper = Int(26 * Rnd + 65) intLower = Int(26 * Rnd + 97) intRand = Int(3 * Rnd + 1) Select Case intRand Case 1 strPartPass = Chr(intNum) Case 2 strPartPass = Chr(intUpper) Case 3 strPartPass = Chr(intLower) End

阅读全文

如何对一个文件夹进行创建和删除?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 6

如何对一个文件夹进行创建和删除? <% set fs=createobject("scripting.filesystemobject") %> <% MyFolder=server.mappath("/chunfeng/happy/") %> <% If NOT fs.folderexists(MyFolder) then      fs.createfolder(MyFolder) End If %>   <% If fs.folderexists(MyFolder) then     response.write "恭喜,文件夹创建成功!" Else    

阅读全文

怎样使用Cookie跟踪来访者?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 0

<% Dim NumVisit ' 声明变量. NumVisit = Request.Cookies("chunfeng")("totalvisit") ' 检查用户来访问过多少次. If NumVisit = "" Then NumVisit = 0 End If ' 如果是第一次来访,NumVisit 应为空,所以我们将NumVisit设为0. '*** Display how many times they have '*** visited your web page. Response.Write "已有: " & NumVisit "人光临随风起舞!"

阅读全文

如何用拦截表单的方法上传图片?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 4

<script language="vbs"> sub send_onclick                dim f       set f=document.ff       photo=trim(f.photo.value)              if photo="" then                    msgbox "嘻嘻,还没照片呢!",64 ,"上传"                  f.photo.focus                  exit sub            end if              f.s

阅读全文

如何实现强制登录?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 1

security.asp <% bLoggedIn = (len(session("UserName")) > 0) if bRequireLogin then ' 要求登录.    if Not bLoggedIn then         response.redirect "login.asp?comebackto=" & _      request.servervariables("script_name") & "?" & _       ' 如果没注册,请注册.      server.urlencode(request.querystring)   

阅读全文

如何判断URL格式是否符合规范?

分类 : 知识管理 | 发布时间 : 2018-04-21 09:06:21 | 浏览 : 1

<%  function checkisUrl(tmpString)       dim c,i       checkisUrl = true       tmpString=Lcase(trim(tmpString))       if left(tmpString,7)<>"http://" then tmpString="http://"&tmpString       for i = 8 to Len(checkisUrl)             c = Lcase(Mid(tmpString, i, 1))             if InStr("