admin_modify.asp

超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来

<%sub admin_modify()
if session("user")="" or session("user")<>admin or session("zouwenye")<>"zouwenye" then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else
sql_admin="select * from admin where admin='"&session("user")&"'"
set rs_admin=conn.execute(sql_admin)
if rs_admin.bof and rs_admin.eof then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else

%>
<%tablefirst()%>
        <table width=100% border=1 cellspacing=0 cellpadding=2 bordercolorlight=#333333 bordercolordark=#FFFFFF align="center">
  <form name=submitok method=POST action=index.asp?action=admin_modifyok&user=<%=rs_admin("admin")%>>
          <tr> 
            <td  align=center valign="top"> <font  class=link  > <br>
              </font> 
              
        <table width=100% border=0 cellspacing=0 cellpadding=6>
          <tr> 
            <td colspan="2" class=link  align="center">修 改 资 料</td>
          </tr>
          <tr> 
            <td colspan="2" class=link align="left" > 留言板地址： 
              <%response.write("<font color=red>http://"&lcase(request.servervariables("HTTP_HOST"))&""&request.servervariables("url")&"?user="&request("user")&"")%>
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">您的帐号：</td>
            <td width=70% class=link > 
              <input type=text name=admin size=20 maxlength=50 class=link value="<%=rs_admin("admin")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">您的密码：</td>
            <td width=70%> 
              <input type=password name=password size=21 maxlength=50 class=link value="<%=rs_admin("password")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">确认密码：</td>
            <td width=70%> 
              <input type=password name=confirm size=21 maxlength=50 class=link value="<%=rs_admin("password")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">您的姓名：</td>
            <td width=70%> 
              <input type=text name=name size=20 maxlength=50 class=link value="<%=rs_admin("name")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right" valign="middle">网站Logo：</td>
            <td width=70% valign="top"> 
              <input type=text name=logo size=20 maxlength=50 class=link value="<%=rs_admin("logo")%>">
            </td>
          </tr>
          <%if session("user")=admin then%>
          <tr> 
            <td width=30% class=link  align="right" valign="middle">上传Logo：</td>
            <td width=70% valign="top"> <iframe name="ad" frameborder=0 width=300 height=25 scrolling=no src=incbook/upload_logo.asp></iframe> 
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">留言风格：</td>
            <td width=70%> 
              <select name="styleid" class=link>
                <%
    sql_style="select styleid,name from style"
   set rs_style=conn.execute(sql_style)
   while not rs_style.eof
    response.write "<option value="&rs_style("styleid")
    if rs_admin("styleid")=rs_style("styleid") then
     response.write " selected"
    end if
   response.write ">"&rs_style("name")&"</option>"
   rs_style.movenext
   wend
   rs_style.close
  %>
              </select>
            </td>
          </tr>
          <%end if%>
          <tr> 
            <td width=30% class=link  align="right">网站简称：</td>
            <td width=70%> 
              <input type=text name=myhome size=20 maxlength=5 class=link value="<%=rs_admin("myhome")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">网站全称：</td>
            <td width=70%> 
              <input type=text name=homename size=50 maxlength=100 class=link value="<%=rs_admin("homename")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">您的网址：</td>
            <td width=70%> 
              <input type=text name=homepage size=20 maxlength=50 class=link value="<%=rs_admin("homepage")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">电子邮箱：</td>
            <td width=70%> 
              <input type=text name=email size=20 maxlength=50 class=link value="<%=rs_admin("email")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">支持 UBB：</td>         
            <td width=70%> 
              <select name="ubb" class=link>
                <option value="1" <%if rs_admin("ubb")=1 then response.write "selected"%>>Yes</option>
                <option value="0" <%if rs_admin("ubb")=0 then response.write "selected"%>>No</option>
              </select>
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">留言字数：</td>
            <td width=70%> 
              <input type=text name=messagemax size=20 maxlength=50 class=link value="<%=rs_admin("messagemax")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">每页记录：</td>
            <td width=70%> 
              <input type=text name=pagesize size=20 maxlength=50 class=link value="<%=rs_admin("pagesize")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">访问记录：</td>
            <td width=70%> 
              <input type=text name=counter size=20 maxlength=50 class=link value="<%=rs_admin("counter")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">过滤粗口：</td>
            <td width=70%> 
              <input type=text name=badwords size=50 maxlength=100 class=link value="<%=rs_admin("badwords")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">留言版本：</td>
            <td width=70%> 
              <input type=text name=version_number size=20 maxlength=50 class=link value="<%=rs_admin("Version_number")%>">
            </td>
          </tr>
        </table>
              <p> 
                
          <input type=submit value=修改完成 class=link name="Submit">
        </p>
              <p>&nbsp; </p>
            </td>
          </tr></form>
        </table>
 <%tablelast()%>
<%
end if
end if

end sub%>