www.gusucode.com > 源码留言本 3.2码程序 > edit_link.asp
<!--#include file="images/note_book.inc"-->
<%
' *************************************************
'| |
'|-----------------源码留言本 3.10-----------------|
'| |
'| 黔江热线 |
'| 相关站点：http://www.52qj.com |
'| |
'| 版权由kering源码所有,不经本人同意，不得随意修改 |
'| 如经发现必追究其责任！ |
'
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改链接</title>
<link href="css/black.css" rel="stylesheet" type="text/css">
</head>
<%
dim title_name,title_link,title_title,title_ID
title_ID=trim(request("title_ID"))
title_name=server.htmlencode(Request("title_name"))
title_link=server.htmlencode(Request("title_link"))
title_title=server.htmlencode(Request("title_title"))
if Request("title_name")="" or Request("title_link")="" or Request("title_title")="" then
%>
<center>各项必须填写！</center>
<center><a href="javascript:history.back(1)">单击返回</a></center>
<% else
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from [note_title] where title_name='"&title_name&"' and title_link='"&title_link&"' and title_title='"&title_title&"'",conn
if not rs.EOF then
%>
<link href="css/black.css" rel="stylesheet" type="text/css">
<body>
<form name="form1" method="post" action="edit_link.asp">
<table width="40%" height="95" border="0" align="center" cellpadding="0" cellspacing="1" class="a2">
<tr>
<td height="18" class="a1"> <div align="center">修改页面顶部导航条(各项不得为空)</div></td>
</tr>
<tr>
<td height="100" class="a3"> <div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" bgcolor="#414141"><div align="right">链接ID<strong>:</strong></div></td>
<td height="30" bgcolor="#414141"><input name="title_ID" type="text" class="i1" value="<%=Request("title_ID")%>" readonly></td>
</tr>
<tr>
<td height="30" bgcolor="#414141"><div align="right">链接名称<strong>:</strong></div></td>
<td height="30" bgcolor="#414141"><input name="title_name" type="text" class="i1" id="title_name" value="<%=Request("title_name")%>">
不超过6字</td>
</tr>
<tr>
<td height="30" bgcolor="#414141"><div align="right">链接地址<strong>:</strong></div></td>
<td height="30" bgcolor="#414141"><input name="title_link" type="text" class="i1" id="title_link" value="<%=Request("title_link")%>"></td>
</tr>
<tr>
<td width="100" height="30" bgcolor="#414141"> <div align="right">链接说明<strong>:</strong></div></td>
<td height="30" bgcolor="#414141"><input name="title_title" type="text" class="i1" id="title_title" value="<%=Request("title_title")%>">
</td>
</tr>
<tr>
<td height="30" colspan="2"><div align="center">
<input name="Submit22" type="submit" class="i1" value="修改">
</div></td>
</tr>
</table>
</div></td>
</tr>
</table>
</form>
</body>
</html>
<% Response.End
end if
rs.close
title_ID=trim(request("title_ID"))
sql="select * from [note_title] where title_ID="&trim(request("title_ID"))&""
rs.open sql,conn,1,3
rs("title_name")=title_name
rs("title_link")=title_link
rs("title_title")=title_title
rs.update
rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
%>
<% end if %>
<center><meta http-equiv="refresh" content="3;url=_admin.asp"></center>
<center>修改成功！正在返回...</center>