check.asp

一套很早的多用户电子商务程序

<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<%
dim uid ,upwd,ul,rep
shop_name1=trim(Request.Form("shop_name1"))
upwd=trim(Request.Form("pwd"))
shop_name1=replace(shop_name1,"'","k")
shop_name1=replace(shop_name1,",","k")
upwd=replace(upwd,"'","k")
upwd=replace(upwd,",","k")
set rs=server.createobject("adodb.recordset")
sqltext="select * from shop where shop_name1='" & shop_name1 & "' and PassWD='" & upwd & "'"
rs.open sqltext,conn,3,3
if rs.recordcount >= 1 then 
   if rs("dredge")="no" then
		 Response.Redirect "messagebox.asp?msg=对不起！你的网店还没有被通过验证或已被禁用！请与管理员联系！" 
		 response.end
    else
	rs("goincount")=rs("goincount")+1
	rs("endtime")=Now 
	rs.update
		  response.cookies("sp_name")=rs("shop_name1")
		  Response.Redirect "default.asp"
		  response.end
		  rs.close
     end if
else
 Response.Redirect "messagebox.asp?msg=您输入了错误的帐号或口令，请再次输入！" 
 response.end
 rs.close
end if
rs.close
%>