📄 n_redit.asp
字号:
<%@LANGUAGE="VBScript" codepage="936"%>
<%
'**********************************************************
' zhuzhu 1.0 Free Power by zgrq.com
' Email:ringsbot@163.com OICQ：500985
' 网站: http://www.zgrq.com 演示：http://www.zgrq.com
'**********************************************************
if session("admin")<>"" and Request.Cookies("admin")<>"" then%>
<!--#include file="x_conn.asp"-->
<%
id=Request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from [news] where id="&id
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1.0,Transition=12)">
<link href="skin_1.css" rel="stylesheet" type="text/css">
<title>RanRan</title>
</head>
<body>
<form action="" method="post" name="form1">
<br>
<table width="310" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="36"><div align="right">标题：</div></td>
<td width="266"><input name="title" type="text" class=xndyk size="20" maxlength="30" value="<%=rs("title")%>">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td><div align="right">天气：</div></td>
<td><input name="user" type="text" class=xndyk id="title" value="<%=rs("user")%>" size="20" maxlength="12">
<font color="#FF0000">*</font> </td>
</tr>
<tr valign="top">
<td><div align="right">分类：</div></td>
<td> <select name="tb">
<option value="网站更新">网站更新</option>
<option value="程序下载">程序下载</option>
<option value="随笔心情">随笔心情</option>
</select> </td>
</tr>
<tr valign="top">
<td></td>
<td> <script src="ubbcode.js"></script><!--#include file="getubb.asp"--></td>
</tr>
<tr>
<td valign="top"><div align="right"><a>内容：</a></div></td>
<td><textarea name="text" cols="38" rows="6" class=xndyk id="text"><%=rs("text")%></textarea>
<font color="#FF0000"> *</font></td>
</tr>
<tr align="center">
<td> </td>
<td><div align="left">
<input type="submit" name="ok" value="签写留言" class=xndyk>
<input type="reset" name="Submit" value="重 填" class=xndyk>
</div></td>
</tr>
</table>
</form>
</body>
</html>
<%
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
title=request("title")
user=request("user")
tb=request("tb")
text=request("text")
rs.open sql,conn,2,3
rs("title")=title
rs("user")=user
rs("tb")=tb
rs("text")=text
if request("ok")<>"" then
rs.update
rs.close
set rs=nothing
response.redirect "a_news.asp"
end if
else
response.Redirect("a_admin.asp")
'**********************************************************
' zhuzhu 1.0 Free Power by zgrq.com
' Email:ringsbot@163.com OICQ：500985
' 网站: http://www.zgrq.com 演示：http://www.zgrq.com
'**********************************************************
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -