📄 modify.asp
字号:
<!-- #include file="common.asp" -->
<!-- #include file="isadm.asp" -->
<%
Dim zsb_auth, hasAuth
hasAuth = False
zsb_auth = Split( Trim( session("zsb_auth") ), ",", -1, 1 )
For Each auth In zsb_auth
If ( auth = "modguest" ) Then
hasAuth = True
Exit For
End If
Next
If hasAuth = false Then
Response.Write("<script language=javascript>alert('对不起，你没有权限，请联系超级管理员！');history.back(-1);</script>")
End If
%>
<%
dim d
set rs=server.createobject("ADODB.recordset")
strsql="select * from guest where ID=" & Request("ID")
rs.open strsql,conn,1,3
if not rs.eof then
'while not rs.eof
'if Trim(rs("timeflag"))=Trim(request.querystring("timflg")) then
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=<% =Char_Set %>">
<title>更改留言页面</title>
<link href="common.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="mytext" style="background-image:url(<% =GBSkin %>/guest_top.gif) ">
<tr>
<td align="center" height="25"> <a href="manage.asp?currentpage=<% =Trim(Request("pn")) %>">不改了,返回管理页</a></td>
</tr>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" style="background-image:url(<% =GBSkin %>/guest_bg.gif) ">
<tr>
<td>
<table width="368" border="0" align="center" cellpadding="0" cellspacing="0" class="mytext">
<form action="modifysave.asp?ID=<% =Request("ID") %>&pn=<% =Trim(Request("pn")) %>" method="post">
<tr>
<td width="41" height="28" align="right">昵称：</td>
<td height="25"><input name="name" type="text" id="name" style="width: 160px; height:18px; border-top-width:1px; border-bottom-width:1px; border-left-width:1px; border-right-width:1px; font-size:12px " value="<% =rs("name") %>" maxlength="30"></td>
<td width="153" rowspan="5" align="center"><img border="0" src="images/<% =rs("headpic") %>.gif" alt="" id="faceid"></td>
</tr>
<tr>
<td height="28" align="right">性别：</td>
<td height="25"><% sex=rs("sex") %>
<% if sex="帅哥" then %>
帅哥：<input name="sex" type="radio" value="帅哥" checked>
靓女：<input type="radio" name="sex" value="靓女">
<% else %>
帅哥：<input name="sex" type="radio" value="帅哥">
靓女：<input type="radio" name="sex" value="靓女" checked>
<% end if %>
</td>
</tr>
<tr>
<td height="28" align="right">来自：</td>
<td width="168" height="25"><input name="address" type="text" id="address2" value="<% =rs("address") %>" maxlength="4" style="width: 160px; height:18px; border-top-width:1px; border-bottom-width:1px; border-left-width:1px; border-right-width:1px; font-size:12px "></td>
</tr>
<tr>
<td height="28" align="right">邮箱：</td>
<td width="168" height="25"><input name="email" type="text" id="email" style="width: 160px; height:18px; border-top-width:1px; border-bottom-width:1px; border-left-width:1px; border-right-width:1px; font-size:12px " value="<% =rs("email") %>" maxlength="30"></td>
</tr>
<tr>
<td height="28" align="right">主页：</td>
<td width="168" height="25"><input name="homepage" type="text" id="homepage" style="width: 160px; height:18px; border-top-width:1px; border-bottom-width:1px; border-left-width:1px; border-right-width:1px; font-size:12px " value="<% =rs("homepage") %>" maxlength="30"></td>
</tr>
<tr>
<td height="28" align="right">OICQ：</td>
<td width="168" height="25"><input name="oicq" type="text" id="oicq" value="<% =rs("Oicq") %>" style="width: 160px; height:18px; border-top-width:1px; border-bottom-width:1px; border-left-width:1px; border-right-width:1px; font-size:12px "></td>
<td width="153" align="center">头像：
<select name="nhead" onChange="document.images['faceid'].src='images/'+options[selectedIndex].value+'.gif';">
<option value="<% =rs("headpic") %>" selected>
<% =rs("headpic") %>
</option>
<option value="pic1">pic1</option>
<option value="pic2">pic2</option>
<option value="pic3">pic3</option>
<option value="pic4">pic4</option>
<option value="pic5">pic5</option>
<option value="pic6">pic6</option>
<option value="pic7">pic7</option>
<option value="pic8">pic8</option>
<option value="pic9">pic9</option>
<option value="pic10">pic10</option>
<option value="pic11">pic11</option>
<option value="pic12">pic12</option>
<option value="pic13">pic13</option>
<option value="pic14">pic14</option>
<option value="pic15">pic15</option>
<option value="pic16">pic16</option>
<option value="pic17">pic17</option>
<option value="pic18">pic18</option>
<option value="pic19">pic19</option>
<option value="pic20">pic20</option>
</select></td>
</tr>
<tr>
<td height="28" align="right">主题：</td>
<td colspan="2"> <input name="headline" type="text" id="headline" value="<% =rs("Title") %>" style="width: 320px; height:18px; border-top-width:1px; border-bottom-width:1px; border-left-width:1px; border-right-width:1px; font-size:12px "></td>
</tr>
<tr>
<td height="28" align="right">时间：</td>
<td colspan="2"><% =rs("Date") %> <% =rs("Time") %></td>
</tr>
<tr>
<td align="right">内容：</td>
<td colspan="2"><textarea name="content" cols="50" rows="6" id="content" style="border-top-width:1px; border-bottom-width:1px; border-left-width:1px; border-right-width:1px; font-size:12px "><% =HEncode(rs("content")) %></textarea></td>
</tr>
<tr>
<td height="30"> </td>
<td height="30" colspan="2"> <input name="reset" type="reset" id="reset" value="重新填写" style="width: 80px; height:18px; border-top-width:1px; border-bottom-width:1px; border-left-width:1px; border-right-width:1px; font-size:12px ">
<input name="Submit" type="submit" id="Submit" value="提交更改结果" style="width: 80px; height:18px; border-top-width:1px; border-bottom-width:1px; border-left-width:1px; border-right-width:1px; font-size:12px "></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
end if
'rs.movenext
'wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -