ab_edit.asp
来自「java_blog是一个非常好的blog」· ASP 代码 · 共 172 行
ASP
172 行
<%@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 [about] where id=1"
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="596" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="36"><div align="right"><span lang="zh-cn">名字</span>：</div></td>
<td width="552"> <input name="name" type="text" class=xndyk size="20" maxlength="40" value="<%=rs("name")%>"> </td>
</tr>
<tr>
<td width="36">小名：</td>
<td><input name="ename" type="text" class=xndyk size="20" maxlength="40" value="<%=rs("ename")%>"></td>
</tr>
<tr>
<td width="36">性别：</td>
<td><select name="sex">
<%if rs("sex")="男" then%>
<option value="男" selected>男</option>
<%else%>
<option value="男">男</option>
<%end if%>
<%if rs("sex")="女" then%>
<option value="女" selected>女</option>
<%else%>
<option value="女">女</option>
<%end if%>
</select></td>
</tr>
<tr>
<td width="36">OICQ</td>
<td><input name="oicq" type="text" class=xndyk size="20" maxlength="40" value="<%=rs("oicq")%>"></td>
</tr>
<tr>
<td width="36">生日：</td>
<td><input name="sr" type="text" class=xndyk size="20" maxlength="40" value="<%=rs("sr")%>"></td>
</tr>
<tr>
<td><div align="right">生肖：</div></td>
<td><input name="sx" type="text" class=xndyk id="renqi8" value="<%=rs("sx")%>" size="20" maxlength="200"> </td>
</tr>
<tr valign="top">
<td> <div align="right">籍贯：</div></td>
<td><input name="jg" type="text" class=xndyk id="renqi7" value="<%=rs("jg")%>" size="20" maxlength="200"></td>
</tr>
<tr valign="top">
<td>邮箱：</td>
<td><input name="mail" type="text" class=xndyk id="renqi6" value="<%=rs("mail")%>" size="20" maxlength="200"></td>
</tr>
<tr valign="top">
<td>网站：</td>
<td><input name="web" type="text" class=xndyk id="renqi5" value="<%=rs("web")%>" size="20" maxlength="200"></td>
</tr>
<tr valign="top">
<td>爱好：</td>
<td><input name="ah" type="text" class=xndyk id="renqi4" value="<%=rs("ah")%>" size="20" maxlength="200"></td>
</tr>
<tr valign="top">
<td>照片：</td>
<td><input name="pt1" type="text" class=xndyk id="renqi3" value="<%=rs("pt1")%>" size="20" maxlength="200">
显示在上面</td>
</tr>
<tr valign="top">
<td>照片：</td>
<td><input name="pt2" type="text" class=xndyk id="renqi2" value="<%=rs("pt2")%>" 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 valign="top">
<td>音乐：</td>
<td><input type="radio" name="music" value="1">
开启
<input name="music" type="radio" value="0" checked>
关闭</td>
</tr>
<tr valign="top">
<td>签名：</td>
<td><textarea name="qm" cols="80" rows="4" class=xndyk id="textarea"><%=rs("qm")%></textarea></td>
</tr>
<tr>
<td valign="top"><div align="right"><span lang="zh-cn">简介</span><a>：</a></div></td>
<td><textarea name="text" cols="80" 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>
<%
if request("ok")<>"" then
set rs=server.createobject("adodb.recordset")
name=request("name")
ename=request("ename")
sex=request("sex")
oicq=request("oicq")
sr=request("sr")
sx=request("sx")
jg=request("jg")
mail=request("mail")
music=request("music")
web=request("web")
ah=request("ah")
pt1=request("pt1")
pt2=request("pt2")
qm=request("qm")
renqi=request("renqi")
text=request("text")
rs.open sql,conn,2,3
rs("name")=name
rs("ename")=ename
rs("sex")=sex
rs("oicq")=oicq
rs("sr")=sr
rs("sx")=sx
rs("jg")=jg
rs("music")=music
rs("mail")=mail
rs("web")=web
rs("ah")=ah
rs("pt1")=pt1
rs("pt2")=pt2
rs("qm")=qm
rs("renqi")=renqi
rs("text")=text
rs.update
rs.close
set rs=nothing
response.redirect "a_main.asp"
end if
%>
<%
else
response.Redirect("a_admin.asp")
end if
'**********************************************************
' zhuzhu 1.0 Free Power by zgrq.com
' Email:ringsbot@163.com OICQ：500985
' 网站: http://www.zgrq.com 演示：http://www.zgrq.com
'**********************************************************
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?