linux面试问题:个位我是新手asp有段代解决不了了请帮帮我

来源：百度文库编辑：神马品牌网时间：2024/04/28 16:19:53

<%@language=vbscript codepage=936 %>




<%
dim sql,rs
dim username,password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
if UserName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名不能为空！</li>"
end if
if Password="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>密码不能为空！</li>"
end if

if FoundErr<>True then
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from skin where password='"&password&"' and username='"&username&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
if password<>rs("password") then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
rs.update
session.Timeout=SessionTimeout
session("username")=rs("username")
session("Password")=rs("Password")
rs.close
set rs=nothing
call CloseConn()
Response.Redirect "index.asp"
end if
end if
rs.close
set rs=nothing
end if
if FoundErr=True then
call WriteErrMsg()
end if

'****************************************************
'过程名：WriteErrMsg
'作用：显示错误提示信息
'参数：无
'****************************************************
sub WriteErrMsg()
dim strErr
strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
strErr=strErr & "<link href='style.css' rel='stylesheet' type='text/css'></head><body>" & vbcrlf
strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbcrlf
strErr=strErr & " <tr align='center'><td height='22' class='title'><strong>错误信息</strong></td></tr>" & vbcrlf
strErr=strErr & " <tr><td height='100' class='tdbg' valign='top'><b>产生错误的可能原因：</b><br>" & errmsg &"</td></tr>" & vbcrlf
strErr=strErr & " <tr align='center'><td class='tdbg'><a href='index.asp'><< 返回登录页面</a></td></tr>" & vbcrlf
strErr=strErr & "</table>" & vbcrlf
strErr=strErr & "</body></html>" & vbcrlf
response.write strErr
end sub
%>
为什么老是不能执行谢谢个位了我刚接触ASP

你不贴出错误,谁又能知道啊!

那段错了？？？？？？？贴出来！让我们自己找问题啊！

呵呵，没有贴出来错误提示信息

个位我是新手asp有段代解决不了了请帮帮我电脑问题我解决不了，个位帮帮我吧！谢谢～～～～～～～～～～我是新手,请大家帮帮我!!! 我是电脑新手，请帮帮我！！！！我是新手帮帮我谢谢了请大家帮帮我吧，这是我最高分了。我是新手嘛我是新手，帮帮我！我是新手,帮帮我我是新手,帮帮我我是新手帮帮我！！！！！！！！！