📄 admin-eee.asp
字号:
<html>
<head>
<link href="images/css.css" rel="stylesheet" type="text/css">
<!--#include file="inc.asp"-->
<!--#include file="md5.asp"-->
<title>真露无香——友情链接管理系统——后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
margin-top: 0px;
margin-bottom: 0px;
}
-->
</style></head>
<%
mfkiqpl.checkadmin
call top
dim action
action=request("action")
select case action
case "dellogo"
call dellogo
case "ok"
call ok
case else
call order
end select
sub order
dim id
id=request("id")
mfkiqpl.openmdb
set rs=conn.execute("select * from links where id="&id)
%>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CAEAFF">
<tr>
<td> </td>
</tr>
<tr>
<td height="600" valign="top"><table width="500" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#0066FF">
<form action="?action=ok" method="post" name="form1">
<tr>
<td height="22" colspan="3" bgcolor="#86CEFF">修 改 链 接 信 息</td>
</tr>
<tr bgcolor="#CAEAFF">
<td width="110" height="22">网站名称</td>
<td width="203" height="22" bgcolor="#CAEAFF"><input name="textfield1" type="text" class="inputtext" id="textfield1" value="<%=rs("webname")%>"></td>
<td width="153" rowspan="2" align="center" bgcolor="#CAEAFF"><img src="<%=rs("weblogo")%>" width="88" height="31"></td>
</tr>
<tr bgcolor="#CAEAFF">
<td height="22">网站地址</td>
<td height="22" bgcolor="#CAEAFF"><input name="textfield2" type="text" class="inputtext" value="<%=rs("weburl")%>"></td>
</tr>
<tr bgcolor="#CAEAFF">
<td height="22">原网站Logo</td>
<td height="22" colspan="2" bgcolor="#CAEAFF"><input name="textfield3" type="text" class="inputtext" value="<%=rs("weblogo")%>" size="40">
<a href="?action=dellogo&id=<%=rs("id")%>&logo=<%=rs("weblogo")%>">删除此Logo</a></td>
</tr>
<tr bgcolor="#CAEAFF">
<td height="22">站长ID</td>
<td height="22" colspan="2"><input name="textfield4" type="text" class="inputtext" value="<%=rs("webmasterid")%>"></td>
</tr>
<tr bgcolor="#CAEAFF">
<td height="22">站长密码</td>
<td height="22" colspan="2"><input name="textfield5" type="text" class="inputtext">
加密：<%=rs("webmasterpsd")%></td>
</tr>
<tr bgcolor="#CAEAFF">
<td height="22">网站简介</td>
<td height="22" colspan="2"><input name="textfield9" type="text" class="inputtext" size="40" value="<%=rs("webbio")%>"></td>
</tr>
<tr bgcolor="#CAEAFF">
<td height="22">站长联系邮件</td>
<td height="22" colspan="2"><input name="textfield6" type="text" class="inputtext" value="<%=rs("webmasteremail")%>">
<input name="idid" type="hidden" id="idid" value="<%=request("id")%>"></td>
</tr>
<tr bgcolor="#CAEAFF">
<td height="22">是否推荐此站</td>
<td height="22" bgcolor="#CAEAFF"><input name="textfield7" type="checkbox" id="textfield7" value="1" <%if rs("webtop") then
response.write("checked")
end if
%>> </td>
<td rowspan="2" bgcolor="#CAEAFF">无本地Logo不须删除！<br> <br>
不改密码无须填写内容！</td>
</tr>
<tr bgcolor="#CAEAFF">
<td height="22">是否通过验证</td>
<td height="22" bgcolor="#CAEAFF"><input name="textfield8" type="checkbox" id="textfield8" value="1" <%
if rs("ok") then
response.write("checked")
end if
mfkiqpl.closers(rs)
mfkiqpl.closeconn
%>></td>
</tr>
<tr bgcolor="#CAEAFF">
<td height="22">重新上传Logo</td>
<td height="22" colspan="2" bgcolor="#FFFFFF"><iframe frameborder=0 height="25" marginheight=0 marginwidth=0 scrolling=no width=300 src="upload.asp"></iframe></td>
</tr>
<tr align="center" bgcolor="#CAEAFF">
<td height="22" colspan="3"><input name="Submit" type="submit" class="inputtext" value="确定修改"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<%
end sub
sub dellogo
dim delfile,fs,id
id=request("id")
delfile=request("logo")
dir=server.mappath(delfile)
set fs=createobject("scripting.filesystemobject")
fs.deletefile(dir)
set fs=nothing
mfkiqpl.openmdb
conn.execute("update links set weblogo='' where id="&id)
mfkiqpl.closeconn
response.write("<script>alert('删除成功！');window.location='admin-eee.asp?id="&id&"';</script>")
end sub
sub ok
dim webname,weburl,weblogo,webmasterid,webmasterpsd,webmasteremail,webtop,webok,idid
webname=mfkiqpl.checkstr(mfkiqpl.getstr("textfield1"))
weburl=mfkiqpl.checkstr(mfkiqpl.getstr("textfield2"))
weblogo=mfkiqpl.checkstr(mfkiqpl.getstr("textfield3"))
weblogo=replace(weblogo,",","")
webmasterbio=mfkiqpl.checkstr(mfkiqpl.getstr("textfield9"))
webmasterid=mfkiqpl.checkstr(mfkiqpl.getstr("textfield4"))
webmasterpsd=mfkiqpl.checkstr(mfkiqpl.getstr("textfield5"))
webmasteremail=mfkiqpl.checkstr(mfkiqpl.getstr("textfield6"))
webtop=mfkiqpl.checkstr(mfkiqpl.getstr("textfield7"))
webok=mfkiqpl.checkstr(mfkiqpl.getstr("textfield8"))
idid=mfkiqpl.checkstr(mfkiqpl.getstr("idid"))
if webtop="1" then
webtop=true
else
webtop=false
end if
if webok="1" then
webok=true
else
webok=false
end if
if webmasterpsd<>"" and weblogo<>"" then
sql="update links set webname='"&webname&"',weburl='"&weburl&"',weblogo='"&weblogo&"',"&_
"webmasterid='"&webmasterid&"',webbio='"&webmasterbio&"',webmasterpsd='"&md5(webmasterpsd)&"',webmasteremail='"&webmasteremail&"'"&_
",webtop="&webtop&",ok="&webok&" where id="&idid
elseif webmasterpsd="" and weblogo<>"" then
sql="update links set webname='"&webname&"',weburl='"&weburl&"',weblogo='"&weblogo&"',"&_
"webmasterid='"&webmasterid&"',webbio='"&webmasterbio&"',webmasteremail='"&webmasteremail&"'"&_
",webtop="&webtop&",ok="&webok&" where id="&idid
elseif webmasterpsd<>"" and weblogo="" then
sql="update links set webname='"&webname&"',weburl='"&weburl&"',webmasterpsd='"&md5(webmasterpsd)&"',"&_
"webmasterid='"&webmasterid&"',webbio='"&webmasterbio&"',webmasteremail='"&webmasteremail&"'"&_
",webtop="&webtop&",ok="&webok&" where id="&idid
else
sql="update links set webname='"&webname&"',weburl='"&weburl&"',"&_
"webmasterid='"&webmasterid&"',webbio='"&webmasterbio&"',webmasteremail='"&webmasteremail&"'"&_
",webtop="&webtop&",ok="&webok&" where id="&idid
end if
mfkiqpl.openmdb
conn.execute(sql)
mfkiqpl.closeconn
response.write("<script>alert('修改成功！');window.location='admin-eee.asp?id="&idid&"';</script>")
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -