www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/wz_edit.asp
<!--#include file="mdb.asp"-->
<!--#include file="aq.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
dim id,modify,title,url,leibie,memo,topid,verity,yl_10in,yl_dayin,yl_yesterin,yl_in,yl_intime,out
id=request("id")
if id="" then
response.write "参数丢失!"
Response.End
end if
modify=request("modify")
title=request("title")
url=request("url")
logo=request("logo")
leibie=request("leibie")
qq=request("qq")
email=request("email")
memo=request("memo")
topid=request("topid")
verity=request("verity")
links=request("links")
yl_10in=request("yl_10in")
yl_dayin=request("yl_dayin")
yl_yesterin=request("yl_yesterin")
yl_in=request("yl_in")
yl_intime=request("yl_intime")
out=request("out")
if modify="yes" then
if title="" or url="" or leibie="" then
response.write "<font color='red'>表单不完整!</font><br>"
else
set r=server.createobject("adodb.recordset")
r.open "select * from detail where id="&id,conn,1,3
if not r.eof then
r("id")=id
r("title")=title
r("url")=url
r("logo")=logo
r("verity")=verity
r("links")=links
r("yl_10in")=yl_10in
r("yl_dayin")=yl_dayin
r("yl_yesterin")=yl_yesterin
r("yl_in")=yl_in
r("yl_intime")=yl_intime
r("out")=out
if memo="" then
r("memo")=" "&memo
else
r("memo")=memo
end if
if qq="" then
r("qq")="362745489"&qq
else
r("qq")=qq
end if
if email="" then
r("email")=" "&email
else
r("email")=email
end if
r("classid")=leibie
if not topid="" then r("topid")=cint(topid)
r.update
Response.Write "<script language=javascript>alert('网站信息修改成功！');this.location.href='wz_edit.asp?id="&r("id")&"';</script>"
end if
r.close
set r=nothing
end if
end if
%>
<HTML>
<HEAD>
<TITLE>网站信息编辑</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
<link href="img/css_body.css" rel="stylesheet" type="text/css" />
</HEAD>
<BODY>
<form action="wz_edit.asp" method="get">
<%
set r=server.createobject("adodb.recordset")
r.open "select * from detail where id="&id,conn,1,3
if not r.eof then
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" align="center" class="tb_style">
<tr>
<td colspan="2" height="30" class="td_title"> 编辑友情链接
</td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">网站编号：</td>
<td align="left" class="td_border"><input name="x" value='<%=r("id")%>' disabled>
<input size="26" name="id" value='<%=r("id")%>' type='hidden'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">网站名称：</td>
<td align="left" class="td_border"><input size="26" name="title" value='<%=r("title")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">网站URL：</td>
<td align="left" class="td_border"><input size="26" name="url" value='<%=r("url")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">所属类别：</td>
<td align="left" class="td_border"><input size="26" name="leibie" value='<%=r("classid")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">E-mail：</td>
<td align="left" class="td_border"><input size="26" name="email" value='<%=r("email")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">推荐级别：</td>
<td align="left" class="td_border"><input size="26" name="topid" value='<%=r("topid")%>'> 0-100,数字越大，排名越靠前</td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">友情显示：</td>
<td align="left" class="td_border"><input size="26" name="links" value='<%=r("links")%>'> 1作为友情连接，0不是友情连接</td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">是否审核：</td>
<td align="left" class="td_border"><input size="26" name="verity" value='<%=r("verity")%>'> 1审核，0不审核</td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">其他信息：</td>
<td align="left" class="td_border"><input size="26" name="memo" value='<%=r("memo")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">十分点入：</td>
<td align="left" class="td_border"><input size="26" name="yl_10in" value='<%=r("yl_10in")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">今日点入：</td>
<td align="left" class="td_border"><input size="26" name="yl_dayin" value='<%=r("yl_dayin")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">昨日点入：</td>
<td align="left" class="td_border"><input size="26" name="yl_yesterin" value='<%=r("yl_yesterin")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">历史点入：</td>
<td align="left" class="td_border"><input size="26" name="yl_in" value='<%=r("yl_in")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">历史点出：</td>
<td align="left" class="td_border"><input size="26" name="out" value='<%=r("out")%>'></td>
</tr>
<tr>
<td width="100" height="25" align="right" class="td_border">最近点入：</td>
<td align="left" class="td_border"><input size="26" name="yl_intime" value='<%=r("yl_intime")%>'></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF">
<input type="submit" value="确定提交"></td>
</tr>
</table>
<%
end if
r.close
set r=nothing
%>
<input name="modify" value="yes" type="hidden">
</form>
</BODY>
</HTML>