📄 w_redit.asp
字号:
<%@LANGUAGE="VBScript" codepage="936"%>
<%
'**********************************************************
' RanRan 1.0 Free Power by 21wan.cn
' Email:shiluo@lianluo.com OICQ：1019257
' 网站: http://www.21wan.cn 演示：http://www.21wan.cn
'**********************************************************
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 [work] 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">
<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="names" type="text" class=xndyk size="20" maxlength="40" value="<%=rs("names")%>">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td><div align="right"><span lang="zh-cn">分类</span>：</div></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%>
</select> </td>
</tr>
<tr valign="top">
<td><div align="right">照片：</div></td>
<td> <input name="tubiao" type="text" class=xndyk id="title0" value="<%=rs("tubiao")%>" size="20" maxlength="200"></td>
</tr>
<tr valign="top">
<td>人气：</td>
<td><input name="renqi" type="text" class=xndyk id="renqi" value="<%=rs("renqi")%>" size="20" maxlength="200"></td>
</tr>
<tr>
<td valign="top"><div align="right"><span lang="zh-cn">简介</span><a>：</a></div></td>
<td><textarea name="jianjie" cols="38" rows="6" class=xndyk id="text"><%=rs("jianjie")%></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")
names=request("names")
fenlei=request("fenlei")
tubiao=request("tubiao")
chakan=request("chakan")
renqi=request("renqi")
jianjie=request("jianjie")
text=request("text")
rs.open sql,conn,2,3
rs("names")=names
rs("fenlei")=fenlei
rs("tubiao")=tubiao
rs("chakan")=chakan
rs("renqi")=renqi
rs("jianjie")=jianjie
if request("ok")<>"" then
rs.update
rs.close
set rs=nothing
response.redirect "p_index.asp"
end if
%>
<%
else
response.Redirect("a_admin.asp")
end if
'**********************************************************
' ReaKun_Boy 3.0 Free Power by reakun.com
' Email: xndyk@163.com OICQ：459353110
' 网站: http://www.reakun.com 演示：http://www.reakun.com/ekun
'**********************************************************
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -