admin_osset.asp

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

    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="26" align="center" bgcolor="#f5f5f5">color5:</td>
      <td height="26" bgcolor="#FFFFFF">　
          <input name="c5" type="text" id="c52" value="<%=c5%>" size="20" maxlength="7"></td>
      <td height="26" align="center" bgcolor="<%=c5%>">显　示</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="30" colspan="4" align="center"><input type="submit" name="Submit2" value="提 交 修 改"></td>
    </tr>
  </form>
</table>
<%
end sub

sub pagecolorsetok
conn.execute("update setos set c1='"&replace(request("c1"),"'","")&"',c2='"&replace(request("c2"),"'","")&"',c3='"&replace(request("c3"),"'","")&"',c4='"&replace(request("c4"),"'","")&"',c5='"&replace(request("c5"),"'","")&"' where id=2")
response.write("<script>alert('修改成功！按确定重新载入页面！');location='admin_osset.asp?action=pagecolorset';</script>")
end sub

sub sysset
%>
</p>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form action="?action=syssetok" method="post" name="from4">
  <tr bgcolor="#FFFFFF">
    <td width="114" height="26" align="center" bgcolor="#f5f5f5">超时时间：</td>
    <td width="288">　
    <input name="sessiontimeout" type="text" id="sessiontimeout" value="<%=sessiontimeout%>" size="10">
    /分</td>
    <td width="212">管理员登录后多少时间内不活动则退出</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="26" align="center" bgcolor="#f5f5f5">版　　权：</td>
    <td>　
    <input name="copyr" type="text" id="copyr" value="<%=copyr%>"></td>
    <td>使用此程序的单位名称</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="26" align="center" bgcolor="#f5f5f5">网页title：</td>
    <td>　
    <input name="title1" type="text" id="title1" value="<%=title1%>" size="30"></td>
    <td>网页的名称</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="26" align="center" bgcolor="#f5f5f5">网站首页：</td>
    <td>　
    <input name="webindex" type="text" id="webindex" value="<%=webindex%>" size="30"></td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="119" align="center" bgcolor="#f5f5f5">页面CSS：</td>
    <td>　
      <textarea name="pagecss" cols="35" rows="6" id="pagecss"><%=pagecss%></textarea></td>
    <td><p>不懂样式表的朋友不要乱改。</p>
      <p>原始样式.ttt是文字段落！</p></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF">
    <td height="30" colspan="3" bgcolor="#FFFFFF"><input type="submit" name="Submit3" value="提 交 修 改"></td>
  </tr>
</form>
</table>
<%
end sub

sub syssetok
sql="update setos set sessiontimeout='"&replace(request("sessiontimeout"),"'","")&"',copyr='"&replace(request("copyr"),"'","")&"',pagetitle='"&replace(request("title1"),"'","")&"',webindex='"&replace(request("webindex"),"'","")&"',pagecss='"&replace(request("pagecss"),"'","")&"'"
conn.execute (sql)
response.write("<script>alert('修改成功！按确定重新载入页面！');location='admin_osset.asp?action=sysset';</script>")
end sub

sub voteset
set votrs=conn.execute("select * from vote")
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form action="?action=votesetok" method="post" name="form6">
  <tr bgcolor="#FFFFFF">
    <td width="159" height="24" align="center" bgcolor="#f5f5f5">投票主题：</td>
    <td colspan="2">　
    <input name="topic" type="text" id="topic" size="60" value="<%=votrs("topic")%>"></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center">&nbsp;</td>
    <td width="336" align="center" bgcolor="#f5f5f5">内　　容</td>
    <td width="119" align="center" bgcolor="#f5f5f5">票　　数</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#f5f5f5">投票项一：</td>
    <td>　
    <input name="option1" type="text" id="option1" value="<%=votrs("option1")%>" size="38"></td>
    <td>　
    <input name="tickets1" type="text" id="tickets1" value="<%=votrs("tickets1")%>" size="5">
    /票</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#f5f5f5">投票项二：</td>
    <td>　
    <input name="option2" type="text" id="option2" value="<%=votrs("option2")%>" size="38"></td>
    <td>　
    <input name="tickets2" type="text" id="tickets2" value="<%=votrs("tickets2")%>" size="5">
    /票</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#f5f5f5">投票项三：</td>
    <td>　
    <input name="option3" type="text" id="option3" value="<%=votrs("option3")%>" size="38"></td>
    <td>　
    <input name="tickets3" type="text" id="tickets3" value="<%=votrs("tickets3")%>" size="5">
    /票</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#f5f5f5">投票项四：</td>
    <td>　
    <input name="option4" type="text" id="option4" value="<%=votrs("option4")%>" size="38"></td>
    <td>　
    <input name="tickets4" type="text" id="tickets4" value="<%=votrs("tickets4")%>" size="5">
    /票</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#f5f5f5">投票项五：</td>
    <td>　
    <input name="option5" type="text" id="option5" value="<%=votrs("option5")%>" size="38"></td>
    <td>　
    <input name="tickets5" type="text" id="tickets5" value="<%=votrs("tickets5")%>" size="5">
    /票</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#f5f5f5">投票项六：</td>
    <td>　
    <input name="option6" type="text" id="option6" value="<%=votrs("option6")%>" size="38"></td>
    <td>　
    <input name="tickets6" type="text" id="tickets6" value="<%=votrs("tickets6")%>" size="5">
    /票</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="46" colspan="3" class="ttt">　　说明：要去掉投票项将内容设为空既可。建立新的投票只要将以上内容修改。但别忘了把票数设为0。主题不能超过80汉字，投票项内容不能超过50汉字！</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="30" colspan="3" align="center"><input type="submit" name="Submit4" value="提 交 修 改"></td>
  </tr>
</form>
</table>
<%
closers(votrs)
end sub

sub votesetok
dim topic,option1,option2,option3,option4,option5,option6,tickets1,tickets2,tickets3,tickets4,tickets5,tickets6
	topic=replace(trim(Request("topic")),"'","")
	option1=replace(trim(Request("option1")),"'","")
	option2=replace(trim(Request("option2")),"'","")
	option3=replace(trim(Request("option3")),"'","")
	option4=replace(trim(Request("option4")),"'","")
	option5=replace(trim(Request("option5")),"'","")
	option6=replace(trim(Request("option6")),"'","")
	tickets1=replace(trim(Request("tickets1")),"'","")
	tickets2=replace(trim(Request("tickets2")),"'","")
	tickets3=replace(trim(Request("tickets3")),"'","")
	tickets4=replace(trim(Request("tickets4")),"'","")
	tickets5=replace(trim(Request("tickets5")),"'","")
	tickets6=replace(trim(Request("tickets6")),"'","")
SQLcmd = "update vote set topic='" & topic & "',option1='" & option1 & "',option2='" & option2 & "',option3='" & option3 & "',option4='" & option4 & "',option5='" & option5 & "',option6='" & option6 & "',tickets1='" & tickets1 & "',tickets2='" & tickets2 & "',tickets3='" & tickets3 & "',tickets4='" & tickets4 & "',tickets5='" & tickets5 & "',tickets6='" & tickets6 & "' where id=1"
conn.Execute SQLcmd
response.write("<script>alert('修改成功！按确定重新载入页面！');location='admin_osset.asp?action=voteset';</script>")
end sub
manageend
%>