gbset.asp

网络书生留言本单用户 v1.0 正式版源码,大家下了就知道怎么用了!

<!--#include file="Gbconn.asp" -->
<!--#include file="eof.asp" -->
<%
If request.Cookies("qzenetgbuser")="" then
response.Redirect("guestbook.asp")
Else
if request.QueryString("gbset")="saves" then
Call saves()
else
Call gbset()
end if
Sub gbset()
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="tableg1">
  <tr>
    <td height="25" align="center"><strong>系统设置</strong></td>
  </tr>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="tableg2">
  <Form name="gbset" method="post" action="?user=<%=users%>&gbset=saves">
    <tr> 
      <td> <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr align="center"> 
            <td width="33%" height="30">是否显示 IP 地址</td>
            <td width="33%" height="30">每页留言个数</td>
            <td width="33%" height="30">留言本模板选择</td>
          </tr>
          <tr align="center"> 
            <td height="30"> <input name="u_ipset" type="radio" value="true" <%if u_ipset=true then response.write "checked"%>>
              是 
              <input name="u_ipset" type="radio" value="false" <%if u_ipset=false then response.write "checked"%>>
              否 </td>
            <td height="30"> <select name="u_pagenum" style="width:50px">
                <%
no =3
for no = 3 to 12
if no=u_pagenum then
response.Write("<option value='"&no&"' selected>"&no&"</option>")
else
response.Write("<option value='"&no&"'>"&no&"</option>")
end if
next
%>
              </select> </td>
            <td height="30"> <select name="u_style" id="u_style">
                <option value="0" <%if u_style=0 then response.write "selected"%>>— 
                默 认 —</option>
                <option value="1" <%if u_style=1 then response.write "selected"%>>— 
                淡 绿 —</option>
                <option value="2" <%if u_style=2 then response.write "selected"%>>— 
                粉 红 —</option>
                <option value="3" <%if u_style=3 then response.write "selected"%>>— 
                灰 色 —</option>
                <option value="4" <%if u_style=4 then response.write "selected"%>>— 
                橙 黄 —</option>
                <option value="5" <%if u_style=5 then response.write "selected"%>>— 
                天 蓝 —</option>
              </select> </td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td height="50" align="center"> 
        <input type="submit" name="Submit1" value=" 提交 " style="height:20px"> 
        &nbsp;&nbsp; <input type="reset" name="Submit2" value=" 重置 " style="height:20px">
      </td>
    </tr>
  </form>
</table>
<%end sub
sub saves()
dim u_ipset,u_pagenum,u_style
u_ipset=request.Form("u_ipset")
u_pagenum=request.Form("u_pagenum")
u_style=request.Form("u_style")
set rs=server.createobject("adodb.recordset")
rs.open "select u_ipset,u_pagenum,u_style from [user]",conn,3,3
rs("u_ipset")=u_ipset
rs("u_pagenum")=u_pagenum
rs("u_style")=u_style
rs.update
rs.close
conn.close
response.Redirect("?user="&users&"")
end sub
End if%>
<!--#include file="bof.asp" -->