'LOGIN页面主要函数
'发送POST请求
function sendHttp(aspFile,strPost)
str=urlencoding(strpost)
set objHttp=createobject("Microsoft.XMLHTTP")
objHttp.open "post",aspfile,false
objHttp.setrequestheader "content-length",len(str)
objHttp.setrequestheader "content-type","application/x-www-form-urlencoded"
objHttp.send str
sendHttp=bytes2bstr(objHttp.responseBody)
end function
Sub cmdlogin_onclick()
aspfile="CheckUser.asp?id=" & trim(txtygid.value ) & "&pw=" & trim(txtygmm.value)
strpost=""
retstr=sendhttp(aspfile,strpost)
if retstr="" then
self.navigate "main.htm"
else
alert retstr
txtygid.select
txtygid.focus
end if
end sub
*******************************************
checkuser.asp
<%
id=Request.QueryString("id")
pw=Request.QueryString("pw")
on error resume next
ProvStr = "driver=sql server;UID=sa;SERVER=server;Database=xxxxxx"
set cn=server.createobject("adodb.connection")
cn.open provstr
set rs=server.CreateObject("adodb.recordset")
rs.Open "select per_enm,per_cnm,per_prt,per_pow from per_inf where per_id='"& id &"' and per_pw='"& pw &"'",cn,3,3
if err.number<>0 then
Response.Write err.Description
err.Clear
Response.End
end if
if rs.RecordCount =0 then
Response.Write "员工号或密码错误!"
Response.End
else
session("id")=id
session("enm")=rs.Fields("per_enm").Value
session("cnm")=rs.Fields("per_cnm").Value
session("part")=rs.Fields("per_prt").Value
session("pow")=rs.Fields("per_pow").Value
end if
cn.Close
set cn=nothing
%>