<%
Response.Expires=0
if request("adname") <> "" then
adname=request("adname")
pas=request("pas")
sql="select * from ad where adname='"&adname&"' and pas='"&pas&"'"
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
if not rs.EOF then
session("pas")="pas"
session("adname")=rs("adname")
response.redirect "adviewguest.asp"
else response.write ""
end if
else
%>
<%
end if
Conn.Close
Set Conn=Nothing
'=================================
'企业留言系统v1.0
'程序制做:http://www.osun.net
'EMAIL：sun@osun.net
'msn:sunninghot@hotmail.com
'oicq: 4136788
'=================================
%>