adminvar.asp

用asp和access做的一个文学管理网站

<!--#include file="head.asp" -->
<!--#include file="../const.asp"-->
<%
if request("action")="edit" then
conn.execute("update adminvar set NetName='"&trim(request.form("NetName"))&"',NetUrl='"&trim(request.form("NetUrl"))&"',Smtp='"&trim(request.form("Smtp"))&"',Email='"&trim(request.form("Email"))&"',CopyRight='"&trim(request.form("CopyRight"))&"',Ver='"&trim(request.form("Ver"))&"',EmailFlag='"&trim(request.form("EmailFlag"))&"',PageCount='"&trim(request.form("PageCount"))&"',BodyVar='"&trim(request.form("BodyVar"))&"',Tablebackcolor='"&trim(request.form("Tablebackcolor"))&"',Tablebodycolor='"&trim(request.form("Tablebodycolor"))&"',Tablebody1color='"&trim(request.form("Tablebody1color"))&"',TableFontcolor='"&trim(request.form("TableFontcolor"))&"',TableContentcolor='"&trim(request.form("TableContentcolor"))&"',Logo='"&request.form("Logo")&"',ads='"&request.form("ads")&"'")
response.write "<BR><BR><BR><div align=center><font color=#FF6600>修 改 成 功</font><BR><BR><a href=adminvar.asp>返 回</a></div>"
response.end
end if
call getConst()
%>
<div align="center">
        <form name="form1" method="post" action="adminvar.asp?action=edit">
          <table width="100%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
            <tr bgcolor="#FFCC00"> 
              <td colspan="2" align="center" height="25">站 点 基 本 信 息</td>
            </tr>
            <tr> 
              <td width="34%"><b>站点名称：</b></td>
              <td width="66%"> 
                <input type="text" name="NetName" class="smallInput" size="35" value="<%=NetName%>">
              </td>
            </tr>
            <tr> 
              <td width="34%" height="29"><b>站点网址：</b></td>
              <td width="66%" height="29"> 
                <input type="text" name="NetUrl" class="smallInput" size="35" value="<%=NetUrl%>">
              </td>
            </tr>
            <tr> 
              <td width="34%"><b>站点LOGO：</b></td>
              <td width="66%"> 
                <input type="text" name="Logo" size="35" class="smallInput" value="<%=Logo%>" maxlength="255">
              </td>
            </tr>
            <tr> 
              <td width="34%"><b>顶部广告：</b></td>
              <td width="66%"> 
                <textarea name="ads" rows="6" cols="35" class="smallInput"><%=ads%></textarea>
                （最多255字符）</td>
            </tr>
            <tr> 
              <td width="34%"><b>SMTP Server地址：</b><br>
                只有在使用设置中打开了发送邮件功能，该填写内容方有效</td>
              <td width="66%"> 
                <input type="text" name="Smtp" class="smallInput" size="35" value="<%=Smtp%>">
              </td>
            </tr>
            <tr> 
              <td width="34%"><b>发布公告：</b><br>
              </td>
              <td width="66%"> 
                <textarea name="Email" class="smallInput" cols="35" rows="5"><%=Email%></textarea>
                <b><font color="#FF6600">自动换行</font></b></td>
            </tr>
            <tr> 
              <td width="34%"><b>发布时间：</b></td>
              <td width="66%"> 
                <input type="text" name="CopyRight" class="smallInput" size="20" value="<%=Ver%>">
                当前时间<b>：</b>
                <input type="text" name="CopyRight2" class="smallInput" size="15" value="<%=(Now())%>" maxlength="5">
                <font color="#FF6600"><b>不要带秒</b></font> </td>
            </tr>
            <tr> 
              <td width="34%" height="31"><b>发布人：</b></td>
              <td width="66%" height="31"> 
                <input type="text" name="Ver" class="smallInput" value="<%=CopyRight%>" maxlength="3" size="20">
                <b><font color="#FF6600"> 3个字之内</font></b></td>
            </tr>
            <tr> 
              <td width="34%"><b>发送邮件组件：</b><br>
                如果您的服务器不支持下列组件，请选择不支持</td>
              <td width="66%"> 
                <select name="EmailFlag">
                  <option value="0" <%if EmailFlag = 0 then%>selected<%end if%>>不支持 
                  <option value="1" <%if EmailFlag = 1 then%>selected<%end if%>>JMAIL 
                  <option value="2" <%if EmailFlag = 2 then%>selected<%end if%>>CDONTS 
                  <option value="3" <%if EmailFlag = 3 then%>selected<%end if%>>ASPEMAIL 
                </select>
              </td>
            </tr>
            <tr> 
              <td width="34%"><b>分页显示数：</b></td>
              <td width="66%"> 
                <input type="text" name="PageCount" size="5" class="smallInput" value="<%=PageCount%>">
                <font color="#FF0000"> 篇/页 </font></td>
            </tr>
            <tr> 
              <td colspan="2" valign="top"> 
                <table width="100%" border="0" cellspacing="1" cellpadding="1">
                  <tr> 
                    <td width="32%"><b>背景(Body标签)：</b></td>
                    <td width="5%">&nbsp;</td>
                    <td width="63%"> 　 
                      <input type="text" name="BodyVar" class="smallInput" value="<%=BodyVar%>">
                      默认:<font color="#FF6600">background=&quot;ir/back4.gif&quot;</font> 
                    </td>
                  </tr>
                  <tr> 
                    <td width="32%"><b>表格背景颜色：</b></td>
                    <td width="5%" bgcolor="<%=Tablebackcolor%>">&nbsp;</td>
                    <td width="63%"> 　 
                      <input type="text" name="Tablebackcolor" class="smallInput" value="<%=Tablebackcolor%>">
                    默认:<font color="#FF6600"><b>#E4C59A</b></font></td>
                  </tr>
                  <tr> 
                    <td width="32%"><b>首页图片(1)</b></td>
                    <td width="5%" bgcolor="<%=Tablebodycolor%>">&nbsp;</td>
                    <td width="63%"> 　 
                      <input type="text" name="Tablebodycolor" class="smallInput" value="<%=Tablebodycolor%>">
                      默认:<font color="#FF6600">image/01.jpg</font></td>
                  </tr>
                  <tr> 
                    <td width="32%"><b>首页图片(2)</b></td>
                    <td width="5%" bgcolor="<%=Tablebody1color%>">&nbsp;</td>
                    <td width="63%"> 　 
                      <input type="text" name="Tablebody1color" class="smallInput" value="<%=Tablebody1color%>">
                      默认:<font color="#FF6600">image/02.jpg</font></td>
                  </tr>
                  <tr> 
                    <td width="32%"><b>首页图片(3)</b></td>
                    <td width="5%" bgcolor="<%=TableFontcolor%>">&nbsp;</td>
                    <td width="63%"> 　 
                      <input type="text" name="TableFontcolor" class="smallInput" value="<%=TableFontcolor%>">
                      默认:<font color="#FF6600">image/03.jpg</font></td>
                  </tr>
                  <tr> 
                    <td width="32%"><b>首页图片(4)</b></td>
                    <td width="5%" bgcolor="<%=TableContentcolor%>">&nbsp;</td>
                    <td width="63%"> 　 
                      <input type="text" name="TableContentcolor" class="smallInput" value="<%=TableContentcolor%>">
                      默认:<font color="#FF6600">image/04.jpg</font></td>
                  </tr>
                </table>
              </td>
            </tr>
            <tr> 
              <td colspan="2">&nbsp;</td>
            </tr>
            <tr align="center"> 
              <td colspan="2"> 
                <input type="submit" name="Submit" value="提交" class="buttonface">
                <input type="reset" name="Submit2" value="重置" class="buttonface">
              </td>
            </tr>
          </table>
</form>
</div>
<!--#include file="copy.asp" -->