📄 config.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#INCLUDE FILE="checklogin1.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<%
if request("action")="update" then
call updateconfig()
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=version%>基本变量设置</title>
<link href="include/site.css" type="text/css" rel="stylesheet">
</head>
<body>
<form method="POST" action=config.asp>
<p><input type=hidden name=action value=update></p>
<p> </p>
<table width=95% bgcolor=<%=Tabletitlecolor%> align="center" cellspacing=1 cellpadding=5>
<tr bgcolor=<%=tablebodycolor1%>>
<td colspan=2> <div align="center"><%=version%>--基本参数</div></td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td colspan="2"><font color="<%=TablefontColor%>">
<div align="center"><B><a href="<%=userurl%>" target="_blank"><%=username%></a></B></div></td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="40%"><font color="<%=TablefontColor%>"><B>网站连接</B></td>
<td width="60%"><input type="text" name="username" size="35" value="<%=username%>">
</td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="40%"><font color="<%=TablefontColor%>"><B>首页URL</B></td>
<td width="60%"> <input type="text" name="userurl" size="50" value="<%=userurl%>">
</td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="40%"><font color="<%=TablefontColor%>"><B>系统信箱</B></td>
<td width="60%"> <input type="text" name="systememail" size="35" value="<%=systememail%>">
</td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="40%"><font color="<%=TablefontColor%>"><B>版本信息</B></td>
<td width="60%"> <input type="text" name="version" size="35" value="<%=version%>">
</td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td width="40%"><font color="<%=TablefontColor%>"><B>序列号</B></td>
<td width="60%"> <input name="systemsn" type="text" Disabled Class=InputStyle id="systemsn" value="<%=systemsn%>" size="35">
</td>
</tr>
<tr bgcolor=<%=Tabletitlecolor%>>
<td height="23" colspan="3" align=right > <div align="center">
<input type="submit" name="submit" value="修改">
</div></td>
</tr>
</table>
</form>
<!--#include file="footer.asp"-->
</body>
</html>
<%
sub updateconfig()
set rs=server.createobject("adodb.recordset")
sql="Select * from [config]"
rs.open sql,conn,1,3
if Request("username")="" then
errmsg = errmsg + "<br>" + "<li>请填写用户名称！</li>"
Founderr=true
else
rs("username") = Request("username")
end if
if Request("userurl")="" then
errmsg = errmsg + "<br>" + "<li>请填写首页地址！</li>"
Founderr=true
else
rs("userurl") = Request("userurl")
end if
if Request("systememail")="" then
errmsg = errmsg + "<br>" + "<li>请填写系统信箱！</li>"
Founderr=true
else
rs("systememail") = Request("systememail")
end if
if Request("version")="" then
errmsg = errmsg + "<br>" + "<li>请填写版本信息！</li>"
Founderr=true
else
rs("version") = Request("version")
end if
if founderr=true then
call error(errmsg)
exit sub
else
rs.update
rs.close
set rs=nothing
stitle="更新系统参数"
smsg="更新系统参数成功！"
call success(stitle,smsg)
response.End
end if
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -