📄 wz_edit.asp
字号:
<%@LANGUAGE="VBScript" codepage="936"%>
<%if session("admin")<>"" and Request.Cookies("admin")<>"" then%>
<!--#include file="x_conn.asp"-->
<%
'**********************************************************
' RanRan 1.0 Free Power by 茫然
' Email: shiluo@Lianluo.com OICQ：1019257
' 网站: http://www.21wan.cn
'**********************************************************
id=Request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from [wz] 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>DenReakun</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"><span lang="zh-cn">标题</span>：</div></td>
<td width="266"> <input name="title" type="text" class=xndyk size="20" maxlength="40" value="<%=rs("title")%>">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td><div align="right"><span lang="zh-cn">作者</span>：</div></td>
<td> <input name="user" type="text" class=xndyk id="user" value="<%=rs("user")%>" size="20" maxlength="40">
</td>
</tr>
<tr valign="top">
<td>分类：</td>
<td> <select name="fenlei">
<%if rs("fenlei")="情感" then%>
<option value="情感" selected>情感</option>
<%else%>
<option value="0">情感</option>
<%end if%>
<%if rs("fenlei")="搞笑" then%>
<option value="搞笑" selected>搞笑</option>
<%else%>
<option value="搞笑">搞笑</option>
<%end if%>
<%if rs("fenlei")="心得" then%>
<option value="心得" selected>心得</option>
<%else%>
<option value="心得">心得</option>
<%end if%>
<%if rs("fenlei")="日记" then%>
<option value="日记" selected>日记</option>
<%else%>
<option value="日记">日记</option>
<%end if%>
</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"><span lang="zh-cn">内容</span><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")
title=request("title")
user=request("user")
fenlei=request("fenlei")
text=request("text")
rs.open sql,conn,2,3
rs("title")=title
rs("text")=text
rs("fenlei")=fenlei
rs("user")=user
if request("ok")<>"" then
rs.update
rs.close
set rs=nothing
response.redirect "a_wz.asp"
end if
else
response.Redirect("a_admin.asp")
end if
'**********************************************************
' RanRan 1.0 Free Power by 茫然
' Email: shiluo@Lianluo.com OICQ：1019257
' 网站: http://www.21wan.cn
'**********************************************************
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -