conn.asp

86bed md5 密码转换与查询工具(带数据库)

<%
dim server_vv,server_v1,erver_v2
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<%
Dim strDB,conn,strConn
Dim rs,sql
strDB    = "../data/#md5.mdb"
strConn  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDB)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn
%>