<% language=vbscript %><%
username=request("username")
password=request("password")
If username = "" Or password = "" Then
Response.Write ""
Response.Write "
请将表单填入完整! "
Response.Write "用户名、密码!"
Response.End '停止处理以下程式
End If
set conn=server.createobject("Adodb.connection")
conn.open"driver={SQL Server};server=cnmall;database=haoyue;uid=ltm1;pwd=11111"
set cmd=server.createobject("adodb.command")
set cmd.activeconnection=conn
sql="select username,password,address,phone,alternatemail from yhzcb where username='"&request("username")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if (rs.recordcount=0) then
response.redirect "register.htm"
end if
if not (rs.eof and rs.bof) then
if not trim(rs("password"))=password then
Response.Redirect "register.htm"
response.end
end if
session("username")=trim(rs("username"))
session("address")=trim(rs("address"))
response.write session("adress")
session("phone")=trim(rs("phone"))
session("alternatemail")=trim(rs("alternatemail"))
end if
%>
皓月清真肉业登陆
<%
application.lock
application("counter")=application("counter")+1
application.unlock
function gcounter(counter)
dim s,i,g,j
s=cstr(counter)
for j=1 to 7-len(s)
g=g&""
next
for i=1 to len(s)
g=g&""
next
gcounter=g
end function
%>