<!--#include file="conn.asp"-->



<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From setting"
Rs.Open Sql,conn,1,3
Rs.Movefirst
backimage=Rs("backimage")               '可选1到14之间的任何数，用来指定留言本背景
websitename=Rs("websitename")        '你的网上昵称
website=Rs("website")                            '你的网站首页地址（如没有请填#）
LogName=Rs("LogName")                      '用于登陆和管理的 用户名称
LogPWD= Rs("LogPWD")                         '用于登陆和管理的 用户密码   
outnum=Rs("outnum")                            '每页的留言数
gbookname=Rs("gbookname")              '留言本名字

 %>
<HTML>
<title><%=gbookname%></title>
<HEAD>
<%function code(fString)
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")

    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString," ","&nbsp;")
	
    fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	code = fString
end function


IF Request("POST")<>"" and Session("PROADMIN")=True Then
Call WriteData
End IF

IF Session("PROADMIN")<>True then
Response.Write "<script language='javascript'>alert('非法修改操作!');</script>"
response.redirect "default.asp"
end if

Function WriteData

IF Request("outnum")="" or Request("gbookname")=""  or Request("LogName")="" or Request("LogPWDa")="" or Request("LogPWDb")="" Then
 Response.Write "<font color=red size=18>请不要空下3，4，5，6，7项参数。谢谢。</font>" %><BR><a href="JavaScript:history.back()">返回</a>
 <%
response.end
ELSE

Rs("backimage")=Request("backimage")
Rs("websitename")=Request("websitename")
Rs("website")=Request("website")
Rs("LogName")=Request("LogName")
if Request("LogPWDa")=Request("LogPWDb") then
Rs("LogPWD")=Request("LogPWDa")
else 
response.write "<font color=red size=18>请将密码及确认密码正确输入。谢谢。</font>" %><BR><a href="JavaScript:history.back()">返回</a>
 <%
response.end
end if 
Rs("outnum")=Request("outnum")
Rs("gbookname")=Request("gbookname")


Rs.Update
Rs.Close


Set Rs=Nothing
Call CloseDB

response.redirect "default.asp"

END IF
End Function%>

<META http-equiv=Content-Type content="text/html; charset=gb2312">


<META content="Microsoft FrontPage 5.0" name=GENERATOR>
<style type="text/css">
<!--
body {
	background-image: url(back/<%=backimage%>.gif);
}
-->
</style>
</HEAD>
<LINK href="style.css" type=text/css rel=stylesheet>
<BODY background=images/bg1.gif topMargin=0>
<TABLE width=770 height=331 border=0 align=center cellPadding=0 cellSpacing=0 
background="" class=3lines>
  <TBODY>
    <TR>
      <TD height=331 align=center valign="middle">
	    <p>&nbsp;</p>
	    <p>&nbsp;</p>
	    <p>&nbsp;</p>
	    <table cellspacing=0 cellpadding=0 width=562 align=center bgcolor=#ffffff border=0>

            <tr>
              <td width=649 align="center" valign=middle><span class="style16"><%=gbookname%></span>			  <table width="100%" height="325" border="0" cellpadding="2" cellspacing="1">
                <form name="form1" method="post" action="">
                  <input type="hidden" name="POST" value="True">
                  <tr bgcolor="#95DDFF">
                    <td height="18" colspan="2" align="center"><p>欢迎进入 参数设置页面</p></td>
                  </tr>
                  <tr align="right" bgcolor="#FFFFFF">
                    <td height="22" colspan="2" class="NO1">轻尘火多彩留言本v1.0                   </td>
				  </tr>
                  <tr bgcolor="#FFFFFF">
                    <td width="19%" height="22" align="left" class="NO1">1.您的网上昵称</td>
                    <td width="81%" align="left" bgcolor="#eeeeee"><input  name="websitename" type="text" size="20" value="<%=rs("websitename")%>">
        </td>
                  </tr> 
				  <tr bgcolor="#FFFFFF">
                    <td height="22" align="left" class="NO1">2.您的主页地址</td>
                    <td align="left" bgcolor="#eeeeee"><input  name="website" type="text" size="20" value="<%=rs("website")%>"></td>
                  </tr>
				   <tr bgcolor="#FFFFFF">
                    <td height="22" align="left" class="NO1">3.每页留言数目</td>
                    <td align="left" bgcolor="#eeeeee"><input  name="outnum" type="text" size="20" value="<%=rs("outnum")%>"></td>
                  </tr>
				  <tr bgcolor="#FFFFFF">
                    <td height="22" align="left" class="NO1">4.留言本的名字</td>
                    <td align="left" bgcolor="#eeeeee"><input  name="gbookname" type="text" size="20" value="<%=rs("gbookname")%>"></td>
                  </tr>
				  
				  <tr bgcolor="#FFFFFF">
                    <td height="22" align="left" class="NO1">5.管理员用户名</td>
                    <td align="left" bgcolor="#eeeeee"><input  name="LogName" type="text" size="20" value="<%=rs("LogName")%>"></td>
                  </tr>
				  <tr bgcolor="#FFFFFF">
                    <td height="22" align="left" class="NO1">6.管理员密码</td>
                    <td align="left" bgcolor="#eeeeee"><input  name="LogPWDa" type="password" size="20" value="<%=rs("LogPWD")%>"></td>
                  </tr>
				  <tr bgcolor="#FFFFFF">
                    <td height="22" align="left" class="NO1">7.确认管理员密码</td>
                    <td align="left" bgcolor="#eeeeee"><input  name="LogPWDb" type="password" size="20" value="<%=rs("LogPWD")%>"></td>
                  </tr>
				  <tr bgcolor="#FFFFFF">
				    <td height="22" align="left" class="NO1">8.背景画面选择</td>
				    <td align="left" bgcolor="#eeeeee">
				      <select name="backimage">
                        <option value="<%=rs("backimage")%>" selected ><%=rs("backimage")%></option>
                        <option value="1">1</option>
						<option value="2">2</option>
                        <option value="3">3</option>
                        <option value="4">4</option>
                        <option value="5">5</option>
                        <option value="6">6</option>
                        <option value="7">7</option>
                        <option value="8">8</option>
                        <option value="9">9</option>
                        <option value="10">10</option>
                        <option value="11">11</option>
                        <option value="12">12</option>
                        <option value="13">13</option>
                        <option value="14">14</option>
                      </select>				</td>
			      </tr>
                  <tr bgcolor="#EEEEEE">
                    <td height="24" colspan="2" align="center" class="NO1"><input name="submit"  type="submit"   value="提交修改">
&nbsp;&nbsp;
        <input type="reset" value="重新修改" name="重置"></td>
                  </tr>
                </form>
              </table></td></tr>
        </table>      
    <% Rs.Close


Set Rs=Nothing
Call CloseDB %> <span class="style19">Powered By L.D.F. </span><br>
    <span class="style19">Copyright &copy; 2003-2004 by <a href="http://ldustf.5944.net" title="欢迎来轻尘火的主页做客"><font color=990033>L.D.F</font></a> All Rights Reserved.</span>    </TR>
  </TBODY>
</TABLE>
<p>&nbsp;</p>
<p>&nbsp;</p>
</BODY>
</HTML>
