📄 admin-1.asp
字号:
<html>
<head>
<link href="images/css.css" rel="stylesheet" type="text/css">
<!--#include file="inc.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")
if action="ok" then
dim n1,n2,n3,n4
n1=mfkiqpl.checkstr(mfkiqpl.getstr("textfield1"))
n2=mfkiqpl.checkstr(mfkiqpl.getstr("textfield2"))
n3=mfkiqpl.checkstr(mfkiqpl.getstr("textfield3"))
n4=mfkiqpl.checkstr(mfkiqpl.getstr("textfield4"))
n5=mfkiqpl.checkstr(mfkiqpl.getstr("textfield5"))
if n3="1" then
n3=true
else
n3=false
end if
if not isnumeric(n1) then
mfkiqpl.alert("错误的数据类型！只能为数字！\r")
end if
if not isnumeric(n2) then
mfkiqpl.alert("错误的数据类型！只能为数字！\r")
end if
if not isnumeric(n4) then
mfkiqpl.alert("错误的数据类型！只能为数字！\r")
end if
if not isnumeric(n5) then
mfkiqpl.alert("错误的数据类型！只能为数字！\r")
end if
mfkiqpl.openmdb
conn.execute("update setos set n1='"&n1&"',n2='"&n2&"',n3="&n3&",n4='"&n4&"',n5='"&n5&"' where id=1")
mfkiqpl.closeconn
response.write("<script>alert('修改成功！');window.location='admin-1.asp';</script>")
else
mfkiqpl.openmdb
set rs=conn.execute("select * from setos where id=1")
%>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="14" bgcolor="#E8FFE8"> </td>
</tr>
<tr>
<td height="600" valign="top" bgcolor="#E8FFE8"><table width="500" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#006600">
<form action="?action=ok" method="post" name="form1">
<tr bgcolor="#04EE10">
<td height="22" colspan="3">程 序 基 本 设 置</td>
</tr>
<tr bgcolor="#E0FFD0">
<td width="120" height="22" bgcolor="#E0FFD0">首页显示列数</td>
<td width="107" bgcolor="#E8FFE8"><input name="textfield1" type="text" class="inputtext" id="textfield1" value="<%=rs("n1")%>" size="5">
*数字</td>
<td width="239" rowspan="2" bgcolor="#E8FFE8">列X行=首页显示链接Logo的总数<br>
<br>
88X列数不要大于你首页总宽度</td>
</tr>
<tr bgcolor="#E0FFD0">
<td height="22" bgcolor="#E0FFD0">首页显示行数</td>
<td bgcolor="#E8FFE8"><input name="textfield2" type="text" class="inputtext" value="<%=rs("n2")%>" size="5">
*数字</td>
</tr>
<tr bgcolor="#E0FFD0">
<td height="22" bgcolor="#E0FFD0">是否要验证后显示</td>
<td colspan="2" bgcolor="#E8FFE8"><input name="textfield3" type="checkbox" id="textfield3" value="1" <%if rs("n3") then response.write "checked" end if%>>
*钩上为需要验证，反之</td>
</tr>
<tr bgcolor="#E0FFD0">
<td height="22" bgcolor="#E0FFD0">最大上传Logo大小</td>
<td colspan="2" bgcolor="#E8FFE8"><input name="textfield4" type="text" class="inputtext" id="textfield4" value="<%=rs("n4")%>" size="10">
*数字，单位为字节(B)。1024B=1KB</td>
</tr>
<tr bgcolor="#E0FFD0">
<td height="22" bgcolor="#E0FFD0">内页显示链接数</td>
<td colspan="2" bgcolor="#E8FFE8"><input name="textfield5" type="text" class="inputtext" id="textfield5" value="<%=rs("n5")%>" size="5">
*数字</td>
</tr>
<tr align="center" bgcolor="#E8FFE8">
<td height="22" colspan="3"><input name="Submit" type="submit" class="inputtext" value="确认修改"></td>
</tr>
</form>
</table>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="500" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#006600">
<tr>
<td width="250" height="22" align="center" bgcolor="#E0FFD0"><a href="admin-mm.asp">管理员信息修改</a></td>
<td width="227" align="center" bgcolor="#E0FFD0"><a href="admin-madd.asp">修改加入友情链接须知</a></td>
</tr>
<tr bgcolor="#E0FFD0">
<td height="22" colspan="2">首页调用代码：<script language="javascript1.1" src="路径/links.asp"></script></td>
</tr>
<tr bgcolor="#E0FFD0">
<td height="22" colspan="2">内页调用代码：<script language="javascript1.1" src="路径/links-1.asp"></script></td>
</tr>
</table>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<%
mfkiqpl.closers(rs)
mfkiqpl.closeconn
end if
%> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -