网站设计常用代码片断

<optgroup LABEL="标题">
asc函数
Session.Contents.Remove("name")
response.Write("<script language=javascript>alert('密码或用户名输入错误!');history.go(-1)</script>")
url=Request.ServerVariables("HTTP_REFERER")
response.Write("<meta http-equiv=refresh content=0;URL="&url&">")
window.opener.location='" & url & "';
response.Redirect(Request.ServerVariables("HTTP_REFERER"))
response.Write("<meta http-equiv=refresh content=0;URL=javascript:history.back();>")
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
filepath=server.mappath("../upload/goods/" & img)
Fso.DeleteFile FilePath,true

style="overflow-x:visible"   自动换行
style="CURSOR:hand;"
style="background-color:transparent"
弹出模式窗口window.showModalDialog(url,window,"dialogWidth=500px;dialogHeight=360px;center=yes;middle=yes;help=no;status=no;scroll=no")
javascript:window.close();
onKeyUp="this.value=this.value.replace(/\D/,'')"
onclick="return confirm('确定要删除吗?');"
<div style="OVERFLOW-Y: auto; HEIGHT: 300px">
onload="javascript:if(this.width>500)this.width=500"
style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all"
onKeyUp="this.value=this.value.replace(/\D/,'')"
style="FILTER:alpha(opacity=99) shadow(color=#bbbbbb,direction=150);"//投影

Function ToMD5(ByVal InputString As String) As String
        Dim code, MD5
        Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(InputString)
        Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)
        Dim i As Integer
        For i = 0 To 15 '选择32位字符的加密结果
            MD5 += Hex(hashvalue(i)).ToLower
        Next
        Return MD5
    End Function
'================随机数============
Randomize()
psw=Int((999999-100000+1)*Rnd(now())+100000)
'==================================
连接数据库：
<!--#include file="conn.asp"-->
photo=Replace(Request.Form("photo"),"'","''")
<%
Server.scriptTimeout="10"
connstr="DBQ="+server.mappath("数据文件.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%>

<%
sql="select * from bbs order by date desc"

rs.open sql,conn,3
if rs.recordcount>0 then
rs.pagesize=20
if request("page")<>"" then
  epage=cint(request("page"))
   if epage<1 then epage=1
   if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage

for i=1 to rs.pagesize
if rs.bof or rs.eof then exit for%>
<%rs.movenext
next
else

end if
rs.close%>
读取：
读取数量：set sl=conn.execute("select count(*) as counts from news where types="&rs("ids")&" ")
=sl("counts")
写入：
set savereg=conn.execute("insert into reg(user,psw,mail,sex)values('"&user&"','"&psw&"','"&mail&"','"&sex&"')")
修改：set savebbs=conn.execute("update bbs set click = "&cl&" where id="&id&"")

datediff函数,是返回两个时间差,如果两个时间相差0,表示是同一天.
参数"d" 表示天
"m" 表示月
"y" 表示年
"h"小时
"m"分钟
"s"秒
**************************************************
function NoHtml(str) '消除Html代码
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
str = replace(replace(str,"<BR>","{br}"),"<br>","{br}")
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
str = replace(str,"{br}","<br>")
nohtml=str
set re=nothing
end function
*************************************************