服务端脚本如何将下划线部分改为vbscript
<%
dim txtaccount,txtpsw
txtaccount=trim(request.form("username"))
txtpsw=trim(request.form("password"))
dim conn
set conn=server.createobject("ADODB.Connection")
conn.connectionstring="driver={sql server};server=192.168.8.33;uid=sa;pwd=sa;database=message"
conn.open
dim strsql
strsql="select * from login where account='"&txtaccount&"'"
dim rs
set rs=server.createobject("ADODB.RecordSet")
rs.open strsql,conn,1,1
if rs.eof then
response.write("<script language='javascript'>alert('帐号不正确');history.back();</script>")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("login.htm")
response.end()
elseif rs("password")<>txtpsw then
response.write("<script language='javascript'>alert('密码不正确');history.back();</script>")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end()
else
rs.close
set rs=nothing
conn.close
set conn=nothing
session("islogin")="ok"
session("account")=txtaccount
response.redirect("index.asp")
end if
%>
