conn.asp

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%
dim startime,conn,connstr,db,rs,rs_s,rs_s1
startime=timer()
db="hsg.mdb" '数据库
on error resume next '尝试连数据库，一直到超时，但可以加强SQL注入过滤
'connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
function encos(str) 
	dim re
	if str="" then
		re=""
	else
		re=trim(str)
		re=server.HTMLEncode(re)
		re=replace(re,"'","’")
		re=replace(re,"%","％")
		re=replace(re,"<","《")
		re=replace(re,"select","ｓｅｌｅｃｔ")
		re=replace(re,"sp_","sp—")
		re=replace(re,"xp_","xp—")
		re=replace(re,"_","—")
		re=replace(re,"+","＋")
		re=replace(re,"'","‘")
		re=replace(re,";","；")
		're=replace(re,"@","·")
		re=replace(re,"--","－－")
		re=replace(re,"//","／／")
		re=replace(re,"exec","ｅｘｅｃ")
		re=replace(re,"declare","ｄｅｃｌａｒｅ")		
	end if
	encos=re
end function
Function checkdyh(str1,msg) 'hsg检测单引号
	if instr(str1,"'")>0 then 
	response.write("<script>javascript:alert('您输入的"&msg&"中含有单引号,请把它们都改成中文全角的单引号,最好左右单引号一一对应!');history.back();</script>")
	response.end()
	end if
end Function
'-----------取得文件扩展名-----------------
Function GetExtEndName(FileName)
	dim ExtName
	ExtName = LCase(FileName)
	ExtName = right(ExtName,3)
	ExtName = right(ExtName,3-Instr(ExtName,"."))
	GetExtEndName = ExtName
End Function
'-------将当前的日期和时间转为文件名------------
Function MakeFileName()
	fname = now()
	fname = replace(fname,"-","")
	fname = replace(fname," ","") 
	fname = replace(fname,":","")
	fname = replace(fname,"PM","")
	fname = replace(fname,"AM","")