admin_const.asp

多用户个人主页系统(ASP)

<!--#include file="inc/CONN.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/md5.asp"-->
<%if request.form("submit")="修改" then
	for i=1 to 13
		cfg(i-1)=request.form(i)
	next
	if len(cfg(10))<>16 then cfg(10)=md5(cfg(10))
	set rs=server.createobject("adodb.recordset")
	rs.open "select CopyRight,Version,MyHpgName,MyHpgUrl,AdvStr,ServerMail,MaxUser,SendMail,SkinID,AdminName,AdminPass,FormatName,LogoUrl from config where id=1",conn,1,3
		for i=0 to 12
			rs(i)=cfg(i)
		next
	rs.update
	rs.close
	response.write "<script language=javascript>alert( ""修改成功"");"&Chr(13)&"location.href=""admin_const.asp"";</script>"
	response.end
end if
Const PageTitle = "基本变量设置"%>
<!--#include file="inc/admin_head.asp"-->
<table align=center border=1 bordercolor=<%=skin(12)%> cellpadding=3 cellspacing=0 width="<%=skin(11)%>"><form name=theForm action=admin_const.asp method=post> 
	<tr class=titlestyle>
		<Td colspan=2><B>系统版权信息修改</b></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center width="40%"><B>版 权 信 息：</B><BR>本留言本系统的所有权，支持html</td>
		<td width="60%"><Textarea name=copyright cols=60 rows=6><%=cfg(0)%></textarea></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>版 本 信 息：</B><BR>本系统作者所注版本，支持html</td>
		<td><Textarea name=Version cols=60 rows=6><%=cfg(1)%></textarea></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B> 主 页 名：</b><BR>作者的主页名字</td>
		<td><input name=MyHpgName type=text maxlength=16 size=40 value="<%=cfg(2)%>"></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>主 页 的 地 址：</B><BR>作者主页的地址</td>
		<td><input name=MyHpgUrl type=text maxlength=80 size=40 value=<%=cfg(3)%>></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>广 告 代 码：</B><BR>用于宣传，如果不做任何宣传此项空白即可，支持html</td>
		<td><textarea name="AdvStr" cols="60" rows="6"><%=cfg(4)%></textarea></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>服 务 信 箱：</B><BR>用户注册和修改资料时发信的信箱</td>
		<td><input name=Servermail type=text maxlength=36 size=40 value="<%=cfg(5)%>"></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>最 多 申 请 量：</B><BR>由于数据库容量问题，可以限制申请数</td>
		<td><input name=MaxUser type=text size=40 maxlength=3 value="<%=cfg(6)%>"></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>是 否 发 送 邮 件：</B><BR>是否注册和修改资料时发送邮件</td>
		<td><input class=noborder type=radio name="sendmail" value=true <%if cfg(7) then response.write "checked"%>><B>是</b>　　　　　<input class=noborder type=radio name="sendmail" value=false <%if not cfg(7) then response.write "checked"%>><b>否</b></td>
	</tr>
	<input type=hidden name=skinid value="<%=cfg(8)%>">
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>管 理 名：</B></td>
		<td><input name=AdminName type=text maxlength=16 size=40 value="<%=cfg(9)%>"></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>管 理 密 码：</B></td>
		<td><input name=AdminPass type=text maxlength=15 size=40 value="<%=cfg(10)%>"> 不修改请保留不动</td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>过 滤 注 册 名</B><BR>过滤字词，用“|”分隔，如：毛泽东|周恩来</td>
		<td><input name=FormatName type=text size=40 value="<%=server.htmlencode(cfg(11))%>"></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center><B>服务logo地址 ：</B><BR>用于连接的logo标记的地址 88*31</td>
		<td><input name=logourl type=text maxlength=80 size=40 value="<%=cfg(12)%>"></td>
	</tr>
	<tr bgcolor=<%=skin(5)%>>
		<Td align=center></td>
		<td>&nbsp;</td>
	</tr>
	<tr bgcolor=<%=skin(4)%>>
		<td align=center colspan=2><input name=submit type=submit value="修改" onclick="return chk()">　　<input name=reset type=reset value="取消" onclick="return chk()"></td>
	</tr></form>
</table>
<!--#include file="inc/foot.asp"-->