conndiary.asp

来自「asp构建网站bbs.采用B/S架构」· ASP 代码 · 共 24 行

<%
Server.ScriptTimeout="10"
Set d_conn = Server.CreateObject("ADODB.Connection")
d_connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db\diary.mdb")
d_conn.open d_connstr
adminrj=""
if lgname="" then
else
set ltgl=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if not ltgl.eof then 
adminrj="yes"
glrj="<a href=diarygl.asp><strong><font color='#FFFFFF'>日记管理</font></strong></a>" 
else
glrj=""
end if
end if
t1="<div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%'height='25'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></td><td background='pic/"&sp&"3.gif'></td><td background='pic/"&sp&"3.gif' align=right><a href='diary.asp'><strong><font color='#FFFFFF'>日记首页</font></strong></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&glrj&"&nbsp;</td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d1="<tr><td width=100% ><P style='MARGIN: 8px;line-height: 150%'>"
d2="</td></tr></table></center></div>"
action=request.querystring("action")
dname=request.querystring("dname")
did=request.querystring("did")
%>