<!--
############################  智思留言本 版权声明  ##############################
#####  智思留言本系统（版本：ZSBS v3.0 构建于 2005/11/01）                  #####
#####  智思网络（zhisi.net) （2004-2024）版权所有！                         #####
#####  此留言本为自由源码版，你可以自由传播和使用而不用交纳任何款项，       #####
#####  你也可以进行更改，但必须本保留版权信息！                             #####
#####  如需删除版权信息，则必须经授权，并交纳版权费，否则将会诉诸于法律！   #####
#####  电子邮箱：zhisi@126.com  QQ：122178250  POPO：simonda                #####
#################################################################################
#####  此版权信息不会妨碍你正常使用本留言本，我们承诺完全免费，但保留版权！ #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #include file="common.asp" -->
<!-- #include file="isadm.asp" -->
<!-- #include file="zsbs_editor.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="<%=GBCss%>/common.css" rel="stylesheet" type="text/css">
  <link href="commcss.css" rel="stylesheet" type="text/css">
  <script src="common.js" language="javascript" type="text/javascript"></script>
</head>
<body>
<div style="margin:auto;padding:20px;width:90%;text-align:left;background-image:url(<%=GBSkin%>/guest_bg.gif);">
  <div style="padding:8px 0 0 30px;background-image:url(<%=GBSkin%>/guest_top.gif);" class="text_header">
    <li style="height:22px;font-weight:bold;">修改留言</li>
  </div>
  <div class="bline" style="height:10px;"></div>
  <form action="modifysave.asp?ID=<% =Request("ID") %>&pn=<% =Trim(Request("pn")) %>" method="post" style="margin:0;padding:0;border:0;">
    <div style="padding-left:10px;">
      <div style="float:left;width:250px;">
        <li>昵称：
          <input name="name" type="text" id="name" class="input_common" style="width: 160px; height:18px;" value="<% =rs("name") %>" maxlength="30">
        </li>
        <li>性别：
          <% sex=rs("sex") %>
          <% if sex="帅哥" then %>
          &nbsp;帅哥：
          <input name="sex" type="radio" value="帅哥" checked>
          靓女：
          <input type="radio" name="sex" value="靓女">
          <% else %>
          &nbsp;帅哥：
          <input name="sex" type="radio" value="帅哥">
          靓女：
          <input type="radio" name="sex" value="靓女" checked>
          <% end if %>
        </li>
        <li>来自：
          <input name="address" type="text" id="address2"  value="<% =rs("address") %>" maxlength="4" class="input_common" style="width: 160px; height:18px;">
        </li>
        <li>邮箱：
          <input name="email" type="text" id="email" class="input_common" style="width: 160px; height:18px; "  value="<% =rs("email") %>" maxlength="30">
        </li>
        <li>主页：
          <input name="homepage" type="text" id="homepage" class="input_common" style="width: 160px; height:18px; "  value="<% =rs("homepage") %>" maxlength="30">
        </li>
        <li>OICQ：
          <input name="oicq" type="text" id="oicq" value="<% =rs("Oicq") %>" class="input_common"  style="width: 160px; height:18px;">
        </li>
		<li>时间：
          <% =rs("Date") %>
          &nbsp;
          <% =rs("Time") %>
        </li>
	  </div>
	  <div style="float:left;width:120px;">
	    <li>头像：</li>
	    <li><img border="0" src="images/<% =rs("headpic") %>.gif" alt="" id="faceid"></li>
		<li>
		<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>
		</li>
	  </div>
	  <div style="float:right;"></div>
	</div>
	<div class="bline" style="height:10px;"></div>
	<div style="padding-left:10px;">
        <li>主题：
          <input name="headline" type="text" id="headline"  value="<% =rs("Title") %>" class="input_common" style="width: 320px; height:18px;">
        </li>
				<li>不允许回复【
                <input id="RepUnabled" name="RepUnabled" type="checkbox" value="1" <%If rs("RepUnabled")=True Then%>checked<%End If%>>
              】
        </li>
        <li>内容：
          <%Call Editor( "content", HEncode(rs("content")) )%>
        </li>
	</div>
	<div class="bline" style="height:10px;"></div>
	<div style="padding:5px 0 0 0;background-image:url(<%=GBSkin%>/guest_top.gif);">
        <li style="height:25px;text-align:center;">
          <input type="button" value="返&nbsp;&nbsp;回" onClick="history.back(-1);" class="button_common" style="width: 60px; height:18px;">
          &nbsp;&nbsp;
          <input name="reset" type="reset" id="reset" value="重新填写" class="button_common" style="width: 80px; height:18px;">
          &nbsp;&nbsp;
          <input name="Submit" type="submit" id="Submit" value="保存修改" class="button_common" style="width: 80px; height:18px;">
        </li>
      </div>
  </form>
  <div class="bline" style="height:10px;"></div>
</div>
<%
 end if
 'rs.movenext
 'wend
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
%>
</body>
</html>