网上商城毕业设计asp 文档

时间:2014-07-10 07:31:13
【文件属性】:

文件名称:网上商城毕业设计asp 文档

文件大小:689KB

文件格式:DOC

更新时间:2014-07-10 07:31:13

jsp/asp网上商城毕业设计

网上商城 <% dim admin,UserPassword,passcode admin=FormatSQL(replace(trim(request.form("admin")),"'","")) UserPassword=md5(FormatSQL(replace(trim(request.Form("UserPassword")),"'",""))) if admin="" or UserPassword="" then response.Write "" conn.Close set conn=nothing response.end end if if not isnumeric(request.form("passcode")) then response.Write "" conn.Close set conn=nothing response.end end if passcode=Cint(request.form("passcode")) set rs=server.CreateObject("adodb.recordset") rs.Open "select * from [admin] where UserPassword='"&UserPassword&"' and admin='"&admin&"' " ,conn,1,1 if rs.bof and rs.eof then response.write "" rs.Close set rs=nothing conn.Close set conn=nothing response.end else if passcode<>Session("GetCode") then response.Write "" rs.Close set rs=nothing conn.Close set conn=nothing response.end end if if UserPassword=rs("UserPassword") and admin=rs("admin") then session("admin")=trim(rs("admin")) session("rank")=int(rs("rank")) session.Timeout=300 response.Cookies("Buy2Buy")("admin")=trim(request.form("admin")) rs.Close set rs=nothing conn.Close set conn=nothing response.Redirect "main.asp" else response.write "" rs.Close set rs=nothing conn.Close set conn=nothing end if end if %>


网友评论

  • 下载参考一下啊!
  • 这个挺好的,就是没有数据库,发布时报错