📄 adminadmin.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="bbs.css" -->
<title><%=hometitle%>统计</title>
<body <%=background%>>
<%if request("view")<>"" then
view=request("view")
url="?view="&view&""
end if
%>
<% if Request.Cookies(feiyuetongji)("Username")="" then
response.Redirect("manage.asp?action=error")
end if
if request("view")<>"" then
view=request("view")
url1="?view="&view&"&"
else
url1="?"
end if%>
<%if Request.QueryString("action")="edit" then
homeurl=trim(request.Form("homeurl"))
hometitle=trim(request.Form("hometitle"))
homeemail=trim(request.Form("homeemail"))
homebanzhu=trim(request.Form("homebanzhu"))
homepassword=trim(request.Form("homepassword"))
homecontent=trim(request.Form("homecontent"))
cookies_time=trim(request.Form("cookies_time"))
sopen=trim(request.Form("sopen"))
t_page=trim(request.Form("t_page"))
scount=trim(request.Form("scount"))
maxcount=trim(request.Form("maxcount"))
stime=trim(request.Form("stime"))
onlinetime=trim(request.Form("onlinetime"))
homeurl=replace(homeurl,"'","’")
hometitle=replace(hometitle,"'","’")
homeemail=replace(homeemail,"'","’")
homebanzhu=replace(homebanzhu,"'","’")
homepassword=replace(homepassword,"'","’")
homecontent=replace(homecontent,"'","’")
t_page=replace(t_page,"'","’")
if homeurl="" or hometitle="" or homeemail="" or homebanzhu="" or homepassword="" or cookies_time="" or t_page="" or scount="" or stime="" or onlinetime="" or maxcount="" then
errornum1=1
errormsg="每一项都必须填写\n"
end if
if not (IsNumeric(onlinetime) and IsNumeric(stime) and IsNumeric(t_page) and IsNumeric(startcount) and IsNumeric(cookies_time) and IsNumeric(maxcount)) then
errornum1=1
errormsg=errormsg&"cookie设置时间\n每页显示记录条数\n统计在线人数\n间隔记数的时间\n最多允许显示\n都必须为数字\n"
end if
if errornum1=1 then
response.write "<script>alert('"&errormsg&"');history.back();</script>"
response.end
end if
sql1="update home set sopen="&sopen&",homeurl='"&homeurl&"',hometitle='"&hometitle&"',homeemail='"&homeemail&"',homebanzhu='"&homebanzhu&"',homepassword='"&homepassword&"',homecontent='"&homecontent&"',cookies_time="&cookies_time&",onlinetime="&onlinetime&",stime="&stime&",t_page="&t_page&",scount="&scount&",maxcount="&maxcount&""
conn.execute(sql1)
response.write "<script>alert(""更新成功"");;history.back();</script>"
end if
sql="select * from home"
set rs=conn.execute(sql)%>
<div align="center">
<center>
<table border=1 cellPadding=1 cellSpacing=1 width=760 style="border-collapse: collapse" align=center>
<form name="form1" method="post" action="<%=url1%>action=edit" onSubmit="return CheckForm();">
<tr>
<td colspan="2" height=23 >
<div align="center">管理员资料登陆 | <a href=admin.asp<%=url%>>信息管理</a></div>
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">管理员名称：</div>
</td>
<td >
<input type="text" name="homebanzhu" class=tdc size="20" value="<%=rs("homebanzhu")%>">
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">管理员密码：</div>
</td>
<td >
<input type="password" name="homepassword" class=tdc size="20" value="<%=rs("homepassword")%>">
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">站点地址：</div>
</td>
<td >
<input type="text" name="homeurl" class=tdc size="30" value="<%=rs("homeurl")%>">
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">站点名称：</div>
</td>
<td >
<input name="hometitle" class=tdc size="30" value="<%=rs("hometitle")%>">
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">站长邮箱：</div>
</td>
<td >
<input type="text" name="homeemail" class=tdc size="30" value="<%=rs("homeemail")%>">
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">站点介绍：</div>
</td>
<td >
<textarea rows="3" name="homecontent" cols="30"><%=rs("homecontent")%></textarea>
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">cookie设置时间：</div>
</td>
<td >
<input type="text" name="cookies_time" class=tdc size="8" value="<%=rs("cookies_time")%>">(cookie设置时间(天),默认为100天)
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">每页显示记录条数：</div>
</td>
<td >
<input name="t_page" class=tdc size="8" value="<%=rs("t_page")%>">(有翻页时每页显示记录条数)
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">间隔记数：</div>
</td>
<td >
<input type="text" name="stime" class=tdc size="8" value="<%=rs("stime")%>">(每台电脑间隔多少时间才记数,单位为秒)
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">统计在线人数的时间：</div>
</td>
<td >
<input name="onlinetime" class=tdc size="8" value="<%=rs("onlinetime")%>">(单位为分)
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">最多允许：</div>
</td>
<td >
<input name="maxcount" class=tdc size="8" value="<%=rs("maxcount")%>">名用户申请
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">每个用户最多允许显示：</div>
</td>
<td >
<input name="scount" class=tdc size="8" value="<%=rs("scount")%>">条详细记录
</td>
</tr>
<tr>
<td width="30%" >
<div align="right">统计系统申请：</div>
</td>
<td >
<select size="1" name="sopen">
<option value=1 <%if rs("sopen")=1 then response.write("selected ")%>>关闭</option>
<option value=0 <%if rs("sopen")=0 then response.write("selected ")%>>开通</option></select>
</td>
</tr>
<tr>
<td > </td>
<td >
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重设">
</td>
</tr>
</form>
</table>
</center>
</div>
<%set rs=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -