<%set Rst=server.createobject("adodb.recordset") exect="select * from startsite where id=1 " RSt.open exect,conn,1,1 sitecontent=rst("sitecontent") sitekeyword=rst("sitekeyword") sitetitle=rst("title") bottom=rst("bottom") rst.close%>

点击访问↖古城网上生活圈子

<%dim dvbbs if request.QueryString("action")="login" then sid=request("sid") userid=request("userid") pwd=request("pwd") pwd1=md5(pwd,16) if sid=0 then response.write "" & Chr(13) response.end end if set conn1 = Server.Createobject("ADODB.Connection") connString1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("bbs/data/Dvbbs83.mdb") conn1.open connString1 set rss=server.CreateObject("adodb.recordset") sql="select * from Dv_User where username='"& userid &"' and userpassword='"& pwd1 &"'" rss.open sql,conn1,1,1 if rss.eof then response.write "" & Chr(13) response.end else Response.Cookies("username")=userid Response.Cookies("password")=pwd1 'session("username")=userid 'session("password")=pwd1 response.redirect "top2.asp?id="& sid &"" end if rss.close set rss=nothing conn1.close set conn1=nothing end if %>