📄 admin_edit.asp
字号:
<!--#include file = "public.asp"-->
<%if session("admintype")<>"common" and session("admintype")<>"admin" then response.Redirect "index.asp"%>
<SCRIPT LANGUAGE=vbscript>
Sub save_onclick
if form.SiteName.value="" then
msgbox "请输入网站名称"
form.SiteName.focus ()
exit sub
end if
if form.url.value=""or form.url.value="http://" then
msgbox "请输入主页地址"
form.url.focus ()
exit sub
end if
if form.linktype.value="请选择类别" or form.linktype.value="" then
msgbox "请选择网站类别"
exit sub
end if
if form.Description.value="" then
msgbox "请输入网站简介"
form.Description.focus ()
exit sub
end if
if len(form.Description.value)>125 then
msgbox "网站简介长度大于125字"
form.Description.focus ()
exit sub
end if
form.submit ()
End Sub
</SCRIPT>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接</title>
<style type="text/css">
<!--
body {
margin-left: 15px;
margin-top: 15px;
margin-right: 15px;
margin-bottom: 15px;
}
-->
</style>
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body>
<!--#include file="admintop.asp" -->
<div align="center">
<center>
<form action="useredit.asp" method="post" name="form" id="form">
<font size="3">
<%
SQL="Select * From friend order by MyDate desc"
SQL1="Select * From sort"
Set rs=conn.Execute(SQL)
Set rs=Server.CreateObject("ADODB.RecordSet")
Set rs1=conn.Execute(SQL1)
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sql1,conn,1,1
if session("admintype")="admin" or session("admintype")="common" then
rs.open "Select * From friend where id="&request("id"),Conn,2,3
session("id")=request("id")
else
rs.open "Select * From friend where name='" & session("name")& "'" ,Conn,2,3
end if
%>
</font>
<table width="332" border="0" align="center" cellpadding="5" cellspacing="1" class="9point" height="265" >
<tr>
<td colspan="2">
<p align="center">编辑友情链接<span class="9point"><font color="#ECE9D8">
<style type=text/css>
<!--
input,textarea {
font-size:9pt;
color:#222222;
font-family:'宋体';
background-color:#F9F9F9;
border-top:1px solid #222222;
border-bottom:1px solid #222222;
border-left:1px solid #222222;
border-right:1px solid #222222;
scrollbar-face-color:#ffffff;
scrollbar-track-color:#ffffff;
scrollbar-arrow-color:#222222;
scrollbar-3dlight-color:#ffffff;
scrollbar-highlight-color:#ffffff;
scrollbar-shadow-color:#222222;
scrollbar-darkshadow-color:#ffffff;}
-->
</style>
</font></span>
</td>
</tr>
<tr class="table001">
<td width="62" align="center">
<div align="left">网站名称：</div>
</td>
<td height="28" align="center">
<div align="left">
<input name="SiteName" type="text" class="input1" value="<%=rs("SiteName")%>" size="32">
</div>
</td>
</tr>
<tr class="table001">
<td width="62" align="center">
<div align="left">主页地址：</div>
</td>
<td height="28" align="center" width="232">
<div align="left">
<input name="URL" size="32" value="<%=rs("url")%>" >
</div>
</td>
</tr>
<tr class="table001">
<td align="center" width="62">
<div align="left">网站LOGO：</div>
</td>
<td height="28" align="center" valign="top" width="232">
<div align="left">
<input name="logo" id="logo" value="<%=rs("sitelogo")%>" size="32">
</div>
</td>
</tr>
<tr class="table001">
<td width="62" align="center">
<div align="left">电子邮件：</div>
</td>
<td height="28" align="center" width="232">
<div align="left">
<input name="Email" size="32" value="<%=rs("Email")%>">
</div>
</td>
</tr>
<tr class="table001">
<td width="62" align="center">
<div align="left">加入类别：</div>
</td>
<td height="28" align="center" valign="top" width="232">
<div align="left">
<select name="linktype" id="linktype">
<% do while not rs1.eof %>
<option value="<%=rs1("sort")%>"<%if rs("linktype")=rs1("sort") then%>selected<%end if%>><%=rs1("sort")%></option>
<% rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</select>
</div>
</td>
</tr>
<tr class="table001">
<td align="center" width="62">
<div align="left">网站简介：<br>
限制为125字以内</div>
</td>
<td height="28" align="center" valign="top" width="232">
<div align="left">
<TEXTAREA name=Description rows=5 cols=30><%=rs("Description")%></TEXTAREA>
</div>
</td>
</tr>
<tr class="table001">
<td align="center" width="62">
<div align="left">加入时间：</div>
</td>
<td height="28" align="center" valign="top" width="232">
<div align="left">
<input name="MyDate" id="MyDate" value="<%=rs("MyDate")%>" size="32">
</div>
</td>
</tr>
<tr class="table001">
<td align="center" width="62">
<div align="left">点击数：</div>
</td>
<td height="28" align="center" valign="top" width="232">
<div align="left">
<input name="siteclick" id="siteclick" value="<%=rs("siteclick")%>" size="32">
</div>
</td>
</tr>
<tr class="table001">
<td height="28" colspan="2" align="center">
<input name="join" type="button" class="input2" id="join" onclick=save_onclick value=" 修 改 " >
<input name="B12" type="reset" class="input2" id="B12" value=" 重 写 " >
</td>
</tr>
</table>
</form>
</CENTER></DIV>
<!--#include file = "bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -