📄 parameter.asp
字号:
<% option explicit %>
<!--#include file="../function1/DBOpen.asp"-->
<%
if session("purview")<>"99999" then
response.write "错误!!您没有权限或者连接超时,请重新登陆." %>
<a href="../login.asp" target="_top"><b>登陆</b></a>
<% response.end
end if
dim rs,sql
dim reviewnumber,newsnumber,articlefrom,aboutnews,morenumber
reviewnumber=request("reviewnumber")
newsnumber=request("newsnumber")
articlefrom=request("articlefrom")
aboutnews=request("aboutnews")
morenumber=request("morenumber")
set rs=server.createobject("adodb.recordset") '如果没有parameterid=1行则建立
rs.open "select * from news_parameter where parameterid=1",conn,1,1
if rs.bof and rs.eof then
sql="insert into news_parameter(parameterid,reviewable,reviewnumber,newsnumber,auditer,aboutnews,newsstatus,morenumber) values(1,1,20,5,0,5,0,50)"
conn.execute sql
rs.close
set rs=nothing
end if
if request("action")="modify" then
if IsNumeric(reviewnumber) then
if reviewnumber<1 then
reviewnumber=20
end if
else
reviewnumber=20
end if
if IsNumeric(newsnumber) then
if newsnumber<1 then
newsnumber=5
end if
else
newsnumber=5
end if
if IsNumeric(aboutnews) then
if aboutnews<1 then
aboutnews=5
end if
else
aboutnews=5
end if
if IsNumeric(morenumber) then
if morenumber<1 then
morenumber=50
end if
else
morenumber=50
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from news_parameter where parameterid=1",conn,1,1
sql="update news_parameter set reviewable=" & request("reviewable") & ",reviewnumber=" & reviewnumber & ",newsnumber=" & newsnumber & ",auditer=" & request("auditer") & ",articlefrom='" & articlefrom & "',aboutnews=" & aboutnews & ",newsstatus=" & request("newsstatus") & ",morenumber=" & morenumber & " where parameterid=1"
conn.execute sql
rs.close
set rs=nothing
end if
%><html>
<head>
<title>系统参数</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE>TABLE {FONT-SIZE: 12px;COLOR: #000000; FONT-FAMILY: 宋体;LINE-HEIGHT: 180%}
.Shadow_white {FONT-SIZE: 14pt; FILTER: dropshadow(color:black, offx=1, offy=1, positive=1); WIDTH: 100%; COLOR: #000000; FONT-FAMILY: 宋体; POSITION: relative}
.Shadow_white2 {FONT-SIZE: 10pt; FILTER: dropshadow(color:black, offx=1, offy=1, positive=1); WIDTH: 100%; COLOR: #000000; FONT-FAMILY: 宋体; POSITION: relative}
A:link {COLOR: #000000; TEXT-DECORATION: none}
A:active {COLOR: #000000; TEXT-DECORATION: none}
A:visited {COLOR: #000000; TEXT-DECORATION: none}
A:hover {COLOR: #ff0000; TEXT-DECORATION: underline}
</STYLE></head>
<body>
<% set rs=server.createobject("adodb.recordset")
rs.open "select * from news_parameter where parameterid=1",conn,1,1 %>
<form action="parameter.asp" method="post">
<input type="Hidden" name="action" value='modify'>
<table border="0" width="100%" bgcolor="#000000" cellpadding="0" cellspacing="1" align="center">
<tr>
<td bgcolor="#abb8d6" colspan="2" height="40">
<div align="center"><b>当前系统参数</b> </div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%" height="15">
<div align="right">是否开放文章评论功能:</div>
</td>
<td width="60%" height="15"> 
<input type="radio" name="reviewable" value=1 <% if rs("reviewable")<>0 then
response.write "checked"
end if%>>
开放      
<input type="radio" name="reviewable" value=0 <% if rs("reviewable")=0 then
response.write "checked"
end if %>>
关闭</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%">
<div align="right">每页显示的评论数目:</div>
</td>
<td width="60%">
<input type="text" name="reviewnumber" class=input maxlength=2 size="5" value='<%=trim(rs("reviewnumber")) %>'>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%">
<div align="right">每页显示的文章数(管理状态下):</div>
</td>
<td width="60%">
<input type="text" name="newsnumber" class=input maxlength=2 size="4" value='<%=trim(rs("newsnumber")) %>'>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%">
<div align="right">是否开放审核员编辑文章权限:</div>
</td>
<td width="60%"> 
<input type="radio" name="auditer" value=1 <% if rs("auditer")=1 then
response.write "checked"
end if%>>
开放    
<input type="radio" name="auditer" value=0 <% if rs("auditer")<>1 then
response.write "checked"
end if %>>
关闭</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%">
<div align="right">默认文章来源:</div>
</td>
<td width="60%">
<input type="text" name="articlefrom" class=input maxlength=90 size="23" value='<%=trim(rs("articlefrom")) %>'>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%">
<div align="right">每页显示的文章数(显示所有新闻页面用):</div>
</td>
<td width="60%">
<input type="text" name="morenumber" class=input maxlength=3 size="5" value='<%=rs("morenumber") %>'>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%">
<div align="right">每条文章下显示相关新闻的数目:</div>
</td>
<td width="60%">
<input type="text" name="aboutnews" class=input maxlength=2 size="5" value='<%=trim(rs("aboutnews")) %>'>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%" valign="top">
<div align="right">新文章添加时的状态:       </div>
</td>
<td width="60%"> 
<input type="radio" name="newsstatus" value=1 <% if rs("newsstatus")=1 then
response.write "checked"
end if%>>
已审核      
<input type="radio" name="newsstatus" value=0 <% if rs("newsstatus")<>1 then
response.write "checked"
end if %>>
未审核</td>
</tr>
<tr bgcolor="#abb8d6">
<td colspan="2" height="50">
<div align="center">
<input type=submit value=" 确 定 " class=button name="submit">
</div>
</td>
</tr>
</table>
<p align="center"></p>
<p align="center"></p>
<% rs.close
set rs=nothing %>
</form>
</body>
</html>
<!--#include file="../function/DBclose.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -