conn.asp

来自「本系统由齐齐哈尔职业学院计算机软件052班 袁利峰 开发, 版权属于 袁利峰 所」· ASP 代码 · 共 40 行

<% 
sqlconn1="select * from admin"
set rsconn1=conn.execute(sqlconn1)
homeurl=rsconn1("homeurl")
pages=rsconn1("page")
BadWords =rsconn1("badword")
home=rsconn1("home")
s_id=rsconn1("s_id")
total=rsconn1("total")
admin4=rsconn1("admin")
set rsconn1=nothing

sqlconn="select * from announce order by a_time desc"
set rsconn=conn.execute(sqlconn)
if not(rsconn.bof and rsconn.eof) then
a_title=rsconn("a_title")
a_content=rsconn("a_content")
a_username=rsconn("a_username")
a_time=rsconn("a_time")
end if

sqlstyle="select * from stycss where s_id="&s_id&""
set rsstyle=conn.execute(sqlstyle)
background=rsstyle("background")
hColor=rsstyle("hColor")
tColor=rsstyle("tColor")
tColor1=rsstyle("tColor1")
tColor2=rsstyle("tColor2")
bgColor=rsstyle("bgColor")
bdtj=rsstyle("bdtj")
tdc =rsstyle("tdc")
tdc1=rsstyle("tdc1")
top1=rsstyle("top1")
link=rsstyle("link")
ttitle=rsstyle("ttitle")
set rsstyle=nothing

o_ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if o_ip = "" then o_ip = Request.ServerVariables("REMOTE_ADDR")
%>