check.asp

一个非常好的旅游网站程序.

<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<%
dim uid ,upwd
shop_name1=trim(Request.Form("shop_name1"))
upwd=trim(Request.Form("pwd"))

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 

rs("goincount")=rs("goincount")+1    '更新进入次数
rs("endtime")=Now   '更新最后一次进入时间
rs.update

      response.cookies("sp_name")=rs("shop_name1") '创建一个cookie对象
           Response.Redirect "default.asp"    '转到管理页面
 	  response.end
      rs.close

	else
	 Response.Redirect "messagebox.asp?msg=您输入了错误的帐号或口令，请再次输入！" 
	 response.end
     rs.close
end if
%>