📄 common.asp
字号:
<!--#include file="inc_connect.asp"-->
<!--#include file="inc_css.asp"-->
<%
'----------------访问统计--------------
if not session("in_site") = "true" then
conn.execute("update admin set stat=stat+1 where id=1")
session("in_site") = "true"
end if
'---------------限制IP访问-----------
dim ip
if request.servervariables("http_x_forwarded_for")="" then
ip=request.servervariables("remote_addr")
else
ip=request.servervariables("http_x_forwarded_for")
end if
if not badip="" then
dim allbadip,i
allbadip=split(badip,chr(13)&chr(10))
for i = lbound(allbadip) to ubound(allbadip)
if ip=trim(allbadip(i)) then
errinfo="<li>您的ip地址无法访问留言本。"
call error()
response.end
end if
next
end if
'-----------------常用数据提取----------
dim name,password,perpage,site,URL,adminmail
dim maxnum,notice,stat,lock,needcheck,badip,adword,UBBcfg
sql="select top 1 * from admin"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
name=rs("name")
password=rs("password")
perpage=rs("perpage")
site=rs("site")
URL=rs("URL")
adminmail=rs("adminmail")
maxnum=rs("maxnum")
notice=rs("notice")
stat=rs("stat")
lock=rs("lock")
needcheck=rs("needcheck")
badip=rs("badip")
adword=rs("adword")
UBBcfg=rs("UBBconfig")
'自定义UBB支持
dim UBBcfg_font,UBBcfg_size,UBBcfg_color,UBBcfg_b,UBBcfg_i,UBBcfg_u
dim UBBcfg_center,UBBcfg_URL,UBBcfg_email,UBBcfg_shadow,UBBcfg_glow
dim UBBcfg_pic,UBBcfg_swf,UBBcfg_face
if instr(UBBcfg,"font")>0 then UBBcfg_font=1
if instr(UBBcfg,"size")>0 then UBBcfg_size=1
if instr(UBBcfg,"color")>0 then UBBcfg_color=1
if instr(UBBcfg,"bold")>0 then UBBcfg_b=1
if instr(UBBcfg,"italic")>0 then UBBcfg_i=1
if instr(UBBcfg,"underline")>0 then UBBcfg_u=1
if instr(UBBcfg,"center")>0 then UBBcfg_center=1
if instr(UBBcfg,"URL")>0 then UBBcfg_URL=1
if instr(UBBcfg,"email")>0 then UBBcfg_email=1
if instr(UBBcfg,"shadow")>0 then UBBcfg_shadow=1
if instr(UBBcfg,"glow")>0 then UBBcfg_glow=1
if instr(UBBcfg,"pic")>0 then UBBcfg_pic=1
if instr(UBBcfg,"swf")>0 then UBBcfg_swf=1
if instr(UBBcfg,"face")>0 then UBBcfg_face=1
rs.close
set rs=nothing
'---------------页面头部信息-------------
sub pageinfo()
%>
<HTML>
<head>
<meta name="description" content="V1.1 留言本 V<%=xm_version%>">
<meta name="keywords" content="<%=site%>,留言本,留言,guestbook">
<meta http-equiv="content-language" content="zh-cn">
<meta http-equiv="content-type" content="text/HTML; charset=gb2312">
<%if pagename="查看留言" then%>
<title>留言本__<%=site%></title>
<%else%>
<title><%=pagename%>__<%=site%></title>
<%end if%>
</head>
<script language="javascript">
function submitonce(theform){
if (document.all||document.getelementbyid){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.tolowercase()=="submit"||tempobj.type.tolowercase()=="reset")
tempobj.disabled=true
}
}
}
</script>
<%
end sub
'--------------通用界面前半部分------------
sub skin1()
%>
<body topmargin="0" leftmargin="0">
<!--#include file="top.asp"-->
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td valign="top" width="100" bgcolor="#F1F1F1" style="border-right: 1px solid #969696">
</td>
<td valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="400" bgcolor="<%=maincolor%>"><img src="images/<%=mainpic%>" width="400" height="46"></td>
<td width="100%" bgcolor="<%=maincolor%>"> </td>
<td width="185" bgcolor="<%=maincolor%>"><img src="images/pagetitle2.gif" width="185" height="46"></td>
</tr>
<tr>
<td width="100%" colspan="3"><%
end sub
'--------------通用界面后半部分------------
sub skin2()
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="50" colspan="2" align="center" style="border-top: 1px solid #969696; filter: progid:dximagetransform.microsoft.gradient(startcolorstr='#FFFFFF', endcolorstr='<%=maincolor%>', gradienttype='1'">版权所有：<a href="<%=URL%>"><%=site%></a><br>
Powered by：pro_linux Version <%=xm_version%></td>
</tr>
</table>
</body>
</HTML>
<%
end sub
'----------------错误信息--------------
dim errinfo
errinfo=""
sub error()
if not errinfo="" then
%>
<title>错误</title>
<p align=center><img width="122" height="50" border="0" src="images/error.gif"></p>
<p>
<table cellpadding=6 cellspacing=1 align=center class=table1 width='550'>
<tr>
<td width='100%' class=tablebody3><b><font color="red">错误：</font></b></td>
</tr>
<tr>
<td width='100%' class=tablebody1><%=errinfo%></td>
</tr>
<tr align=center>
<td width='100%' class=tablebody3><a href="javascript:history.back(1)"><b><< 返回</b></a></td>
</tr>
</table>
</p>
<%
response.end
end if
end sub
dim pagename,maincolor
maincolor="#5581D2" '留言本的主色调
dim xm_version
xm_version="2.0" '版本号
dim mainpic
function sql_filter(text) '-------在提交内容时进行SQL过滤-------
if isnull(text) then
sql_filter=""
exit function
end if
text = Replace(text,"'","''")
text = Replace(text,">",">")
text = Replace(text,"<","<")
text = Replace(text,";","；")
text = Replace(text,"and","ａｎｄ")
text = Replace(text,"exec","ｅｘｅｃ")
text = Replace(text,"insert","ｉｎｓｅｒｔ")
text = Replace(text,"select","ｓｅｌｅｃｔ")
text = Replace(text,"delete","ｄｅｌｅｔｅ")
text = Replace(text,"update","ｕｐｄａｔｅ")
text = Replace(text,"count","ｃｏｕｎｔ")
text = Replace(text,"*","＊")
text = Replace(text,"%","％")
text = Replace(text,"chr","ｃｈｒ")
text = Replace(text,"mid","ｍｉｄ")
text = Replace(text,"master","ｍａｓｔｅｒ")
text = Replace(text,"truncate","ｔｒｕｎｃａｔｅ")
text = Replace(text,"char","ｃｈａｒ")
text = Replace(text,"declare","ｄｅｃｌａｒｅ")
sql_filter = text
end function
function back_filter(text) '-------在显示内容时还原被替换的SQL-------
if isnull(text) then
back_filter=""
exit function
end if
text = Replace(text,"''","'")
text = Replace(text,"；",";")
text = Replace(text,"ａｎｄ","and")
text = Replace(text,"ｅｘｅｃ","exec")
text = Replace(text,"ｉｎｓｅｒｔ","insert")
text = Replace(text,"ｓｅｌｅｃｔ","select")
text = Replace(text,"ｄｅｌｅｔｅ","delete")
text = Replace(text,"ｕｐｄａｔｅ","update")
text = Replace(text,"ｃｏｕｎｔ","count")
text = Replace(text,"＊","*")
text = Replace(text,"％","%")
text = Replace(text,"ｃｈｒ","chr")
text = Replace(text,"ｍｉｄ","mid")
text = Replace(text,"ｍａｓｔｅｒ","master")
text = Replace(text,"ｔｒｕｎｃａｔｅ","truncate")
text = Replace(text,"ｃｈａｒ","char")
text = Replace(text,"ｄｅｃｌａｒｅ","declare")
back_filter = text
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -