config_save.asp

来自「这是我根据动网新闻核心自行设计的校园新闻系统」· ASP 代码 · 共 37 行

<%
pageadmin=10
%>
<!--#include file="../login/check.asp" -->
<!--#include file="../../inc/conn.asp" -->
<!--#include file="../../inc/function.asp" -->
<%
Dim rs
Dim openwindow
Dim windowwidth
Dim windowheight
Dim source
Dim writer
openwindow=Request.Form("openwindow")
windowwidth=Request.Form("windowwidth")
windowheight=Request.Form("windowheight")
source=Request.Form("source")
writer=Request.Form("writer")
Dim template
template=Request.Form("template")
Dim moretemplate
moretemplate=Request.Form("moretemplate")
Set rs=Conn.execute("select * from webconfig")
If rs.eof Then
	Conn.execute("insert into webconfig (id,openwindow,windowwidth,windowheight,source,writer,template,moretemplate) values (1,'"&openwindow&"','"&windowwidth&"','"&windowheight&"','"&source&"','"&writer&"','"&template&"','"&moretemplate&"')")
Else
	Conn.execute("update webconfig set openwindow='"&openwindow&"',windowwidth='"&windowwidth&"',windowheight='"&windowheight&"',source='"&source&"',writer='"&writer&"',template='"&template&"',moretemplate='"&moretemplate&"'")
End If
rs.Close
Set rs = Nothing
call connclose
If err Then
	Call showerror("出错了，系统未能保存设置。")
Else
	Call showsuccess("操作成功","config.asp")
End If
%>