admin_osset.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp"-->
<%
managemode
dim action
action=trim(request("action"))
select case action
case "indexset"
indexset
case "pagecolorset"
pagecolorset
case "sysset"
sysset
case "voteset"
voteset
case "indexsetok"
indexsetok
case "pagecolorsetok"
pagecolorsetok
case "syssetok"
syssetok
case "votesetok"
votesetok
case else
response.Write("<script>alert('错误的参数传递！请确定你从有效链接进入！');history.back();</script>")
end select
sub indexset
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form name="form1" method="post" action="?action=indexsetok">
  <tr bgcolor="#FFFFFF">
    <td width="164" height="24" align="center" bgcolor="#F5F5F5">首页显示联系我社：</td>
    <td height="24" bgcolor="#FFFFFF">　
    <input name="showlx" type="checkbox" id="showlx" value="true" <%if showlx then response.write("checked") end if%>></td>
    <td rowspan="9" bgcolor="#FFFFFF" class="ttt">　钩上为在首页显示，反则不在首页显示。</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">首页显示最新线路：</td>
    <td height="24" bgcolor="#FFFFFF">　
    <input name="shownew" type="checkbox" id="shownew" value="true" <%if shownew then response.write("checked") end if%>></td>
    </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">首页显示最热线路：</td>
    <td height="11" bgcolor="#FFFFFF">　
    <input name="showhot" type="checkbox" id="showhot" value="true" <%if showhot then response.write("checked") end if%>></td>
    </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">首页显示置顶线路：</td>
    <td height="12" bgcolor="#FFFFFF">　
      <input name="showtop" type="checkbox" id="showtop" value="true" <%if showtop then response.write("checked") end if%>></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">上面各项显示的条数：</td>
    <td height="24" bgcolor="#FFFFFF">　
      <input name="indexrsize" type="text" id="indexrsize4" value="<%=rsize%>" size="5">
/条</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">首页上显示最新留言：</td>
    <td height="24" bgcolor="#FFFFFF">　
      <input name="showly" type="checkbox" id="showly" value="true" <%if showly then response.write("checked") end if%>></td>
    </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">按目录方式显示记录数：</td>
    <td height="24" bgcolor="#FFFFFF">　 
      <input name="dsize" type="text" id="indexrsize22" value=<%=dsize%> size="5">
      /条</td>
    </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">按平板方式显示记录数：</td>
    <td height="24" bgcolor="#FFFFFF">　 
      <input name="tsize" type="text" id="indexrsize3" value=<%=tsize%> size="5">
      /条</td>
    </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">首页显示站内调查：</td>
    <td height="24" bgcolor="#FFFFFF">　
      <input name="showvote" type="checkbox" id="showvote" value="true" <%if showvote then response.write("checked") end if%>></td>
    </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">站标显示：</td>
    <td width="313" height="24">　
    <input name="pagelogo" type="text" id="indexlogo" size="40" value="<%=pagelogo%>"></td>
    <td width="137" rowspan="2" bgcolor="#FFFFFF" class="ttt">　可为HTML格式，但不可含有'符号。</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="90" align="center" bgcolor="#F5F5F5">站标右边横幅：</td>
    <td height="90">　
      <textarea name="pagebu" cols="30" rows="4" id="indexbu"><%=pagebu%></textarea></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="30" colspan="3" align="center"><input type="submit" name="Submit" value="提 交 修 改"></td>
  </tr>
</form>
</table>
<p>
  <%
end sub
sub indexsetok
dim pagelogo,pagebu,showlx,shownew,showhot,showvote,showtop
showlx=request("showlx")
if showlx="" then
showlx=false
end if
shownew=request("shownew")
if shownew="" then
shownew=false
end if
showhot=request("showhot")
if showhot="" then
showhot=false
end if
showvote=request("showvote")
if showvote="" then
showvote=false
end if
showly=request("showly")
if showly="" then
showly=false
end if
showtop=request("showtop")
if showtop="" then
showtop=false
end if
pagelogo=replace(trim(request("pagelogo")),"'","")
pagebu=replace(trim(request("pagebu")),"'","")
sql="update setos set dsize='"&trim(request("dsize"))&"',tsize='"&trim(request("tsize"))&"',showlx="&showlx&",shownew="&shownew&",showhot="&showhot&",showly="&showly&",showvote="&showvote&",pagelogo='"&pagelogo&"',pagebu='"&pagebu&"',indexrsize='"&trim(request("indexrsize"))&"',showtop="&showtop&" where id=2"
conn.execute (sql)
response.write("<script>alert('修改成功！按确定重新载入页面！');location='admin_osset.asp?action=indexset';</script>")
end sub
sub pagecolorset
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <form action="?action=pagecolorsetok" method="post" name="form3">
    <tr bgcolor="#FFFFFF">
      <td width="144" height="26" align="center" bgcolor="#f5f5f5">color1:</td>
      <td width="206" height="26" bgcolor="#FFFFFF"> 　
          <input name="c1" type="text" id="c12" value="<%=c1%>" size="20" maxlength="7"></td>
      <td width="131" height="26" align="center" bgcolor="<%=c1%>">显　示</td>
      <td width="132" rowspan="5" align="center" bgcolor="#FFFFFF">后台不受此颜色的限制</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="26" align="center" bgcolor="#f5f5f5">color2:</td>
      <td height="26" bgcolor="#FFFFFF">　
          <input name="c2" type="text" id="c22" value="<%=c2%>" size="20" maxlength="7"></td>
      <td height="26" align="center" bgcolor="<%=c2%>">显　示</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="26" align="center" bgcolor="#f5f5f5">color3:</td>
      <td height="26" bgcolor="#FFFFFF">　
          <input name="c3" type="text" id="c32" value="<%=c3%>" size="20" maxlength="7"></td>
      <td height="26" align="center" bgcolor="<%=c3%>">显　示</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="26" align="center" bgcolor="#f5f5f5">color4:</td>
      <td height="26" bgcolor="#FFFFFF">　
          <input name="c4" type="text" id="c42" value="<%=c4%>" size="20" maxlength="7"></td>
      <td height="26" align="center" bgcolor="<%=c4%>">显　示</td>