<% option explicit %>
<%
if session("purview")<>"99999" then
response.write "错误!!您没有权限或者连接超时,请重新登陆." %>
登陆
<% 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
%>
系统参数
当前系统参数
<% set rs=server.createobject("adodb.recordset")
rs.open "select * from news_parameter where parameterid=1",conn,1,1 %>