📄 admin_site.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="conn.asp"-->
<!--#include file="admin_xy.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>系统设置</title>
</head>
<body><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度. 交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com
'====================================================================
%>
<!--#include file="i.asp"-->
<%
set objgbrs=server.createobject("ADODB.Recordset")
Sql="select * from site"
objgbrs.open Sql,conn,1,3
%>
<%if request.querystring("info")="edit" then%>
=网站设置=
<form id="form1" name="form1" method="post" action="admin_site.asp?xy=<%=xy%>&info=editok">
<br/>*网站名称：<input title="站名" name="name" maxlength="20" value="<%=objgbrs("name")%>"/>
<br/>*网站logo：<input title="logo" name="logo" value="<%=objgbrs("logo")%>"/>
<br/>*网站域名：http://<input title="http://" name="url" maxlength="20" value="<%=objgbrs("url")%>"/>
<br/>*分类分隔符: <input title="分隔符" name="fl" maxlength="100" value="<%=objgbrs("fl")%>"/>
<br/>*分类页面显示条数: <input title="条数" name="fy" maxlength="2" value="<%=objgbrs("fy")%>"/>
<br/>*上部文字说明(支持UBB): <input title="说明" name="sb" value="<%=objgbrs("sb")%>"/>
<br/>*中部文字说明(支持UBB): <input title="说明" name="xb" value="<%=objgbrs("xb")%>"/>
<br/>*版权所有(支持UBB): <input title="版权" name="ba" value="<%=objgbrs("ba")%>"/>
<input type="submit" name="Submit" value="[提交]" />
</form>
<%end if%>
<%if request.querystring("info")="editok" then%>
<%
name=request("name")
logo=request("logo")
url=request("url")
fl=request("fl")
fy=request("fy")
ba=request("ba")
sb=request("sb")
xb=request("xb")
if name="" or logo="" or url="" or fy="" or ba="" or sb="" or xb="" then
response.write "数据填写不完整！"
else
objgbrs("name")=name
objgbrs("logo")=logo
objgbrs("url")=url
objgbrs("fl")=fl
objgbrs("fy")=fy
objgbrs("ba")=ba
objgbrs("sb")=sb
objgbrs("xb")=xb
objgbrs.update
response.write "设置成功！<br/><br/>"
end if
%>
<%end if%>
==UBB说明==<br/>
时间：(time)<br/>
贴图：
(img)图片地址(/img)<br/>
链接：
(url)链接地址(/url)或(url=链接地址)说明(/url)<br/>
电话：
(c)电话号码(/c)或(c=电话号码)说明(/c)<br/>
下划线：(u)文字(/u)<br/>
粗体字：(b)文字(/b)<br/>
斜体字：(i)文字(/i)<br/>
换行：\\（字母或数字里的）<br/><br/>
<a href="index.asp?xy=<%=xy%>">[后台管理]</a><br/>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -