📄 admin_ad.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
'检查管理员是否登录
AdminName = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminName")))
AdminPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminPassword")))
RndPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("RndPassword")))
If AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
Response.Redirect "Admin_login.asp"
End If
%>
<%
set rsad = server.createobject("adodb.recordset")
dim sign
sign=request("sign")
if sign="" then
sqlad="select top 7 * from topad order by id asc"
rsad.open sqlad,conn,1,1
dim iurl,ilink,ititle
do while not rsad.eof
iurl=iurl&"|"&rsad("imgurl")
ilink=ilink&"|"&rsad("imglink")
ititle=ititle&"|"&rsad("title")
rsad.movenext
loop
rsad.close
set rsad=nothing
conn.close
set conn=nothing
iurl=split(iurl,"|")
ilink=split(ilink,"|")
ititle=split(ititle,"|")
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<LINK href="image/style.css" rel=stylesheet>
<title><%=webname%></title>
</head>
<body leftMargin=0 bgcolor="#EFEFEF" topMargin=15>
<TABLE width="90%" border=0 align="center" cellPadding=4 cellSpacing=1 bgColor=#000000>
<TBODY>
<TR>
<TD align="center" vAlign=center bgColor=#EFEFEF><b>ID</b></TD>
<TD align="center" bgColor=#EFEFEF><b>图片</b></TD>
<TD align="center" bgColor=#EFEFEF><b>连接地址</b></TD>
<TD align="center" bgColor=#EFEFEF><b>说明</b></TD>
<TD align="center" bgColor=#EFEFEF><b>操作</b></TD>
</TR>
<%for i=1 to 7%>
<TR><form method=post>
<TD align="center" vAlign=center bgColor=#EFEFEF><%=i%></TD>
<TD bgColor=#FFFFFF><input name="imgurl" type="text" value='<%=iurl(i)%>' size="30" maxlength="100"></TD>
<TD bgColor=#FFFFFF><input name="imglink" type="text" value='<%=ilink(i)%>' size="30" maxlength="100"> </TD>
<TD bgColor=#FFFFFF><input name="title" type="text" size="20" value='<%=ititle(i)%>'><input type=hidden name=sign value=<%=i%>> </TD>
<TD align="center" bgColor=#FFFFFF><input type=submit value=修改></TD>
</form></TR>
<%next%>
</TBODY>
</TABLE>
</body>
</html>
<%
else
sqlad="select * from topad where id="&sign
rsad.open sqlad,conn,1,3
rsad("imgurl")=request("imgurl")
if request("imglink")="" or isnull(request("imglink")) then
rsad("imglink")="无"
else
rsad("imglink")=request("imglink")
end if
rsad("title")=request("title")
rsad.update()
rsad.close
set rsad=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -