conn.asp

一个不错的论坛原代码

<%
sqlconn1="select t_viewcheck,h_viewuser,h_url,h_lockcpbwhy,h_servertime,badword,h_email,h_addtime,h_viewcpb,l_title,l_url,seconds,t_page,r_page,h_lockcpb from home"
set rsconn1=conn.execute(sqlconn1)
h_url=rsconn1("h_url")
h_viewuser=rsconn1("h_viewuser")'游客浏览会员资料
h_lockcpb=rsconn1("h_lockcpb")'关闭论坛字段
h_lockcpbwhy=rsconn1("h_lockcpbwhy")'关闭论坛原因
h_servertime=rsconn1("h_servertime")'脚本超时时间
h_email=trim(rsconn1("h_email"))'站长邮箱
h_addtime=rsconn1("h_addtime")'时间差
h_viewcpb=rsconn1("h_viewcpb")
l_title=rsconn1("l_title")
l_urlf=rsconn1("l_url")
secondss=rsconn1("seconds")
t_page=rsconn1("t_page")
r_page=rsconn1("r_page")
badwords=rsconn1("badword")
t_viewcheck=rsconn1("t_viewcheck")
server.ScriptTimeout =h_servertime

function browser(text)
	if Instr(text,"MSIE 5.5")>0 then
		browser="IE 5.5"
	elseif Instr(text,"MSIE 6.0")>0 then
		browser="IE 6.0"
	elseif Instr(text,"MSIE 5.01")>0 then
		browser="IE 5.01"
	elseif Instr(text,"MSIE 5.0")>0 then
		browser="IE 5.00"
	elseif Instr(text,"MSIE 4.0")>0 then
		browser="IE 4.01"
		else
		browser="未知"
	end if
end function
function system(text)
	if Instr(text,"NT 5.1")>0 then
		system=system+"Windows XP"
	elseif Instr(text,"NT 5")>0 then
		system=system+"Windows 2000"
	elseif Instr(text,"NT 4")>0 then
		system=system+"Windows NT4"
	elseif Instr(text,"4.9")>0 then
		system=system+"Windows ME"
	elseif Instr(text,"98")>0 then
		system=system+"Windows 98"
	elseif Instr(text,"95")>0 then
		system=system+"Windows 95"
		else
		system=system+"未知"
	end if
end function

'过虑词语
function ChkBadWords(fString)
fString=replace(fString,"'","''")
    bwords = split(BadWords, "|")
    for i = 0 to ubound(bwords)
     fString = Replace(fString, bwords(i), string(len(bwords(i)),"*")) 
    next    
    ChkBadWords = fString

end function

'----------------过滤HTML代码----------------------
function HTMLEncode(fString)
if fString="" or isnull(fString) then
exit function
 end if
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    fString = Replace(fString,"&nbsp;"," ")
    fString=ChkBadWords(fString)
    HTMLEncode = fString
end function

'过滤非法字符
function chktopic(str)
	if str<>"" then	
	chktopic=replace(str,"'","''")
	end if
end function


'过滤非法字符
function chkimg(str)
	if str<>"" then	
	chkimg=replace(str,"script:","")
	end if
end function



l_url="fylinklink"'如果更改cookies变量的话，只要将你想要的字母替换fy就可，如果不懂怎么更改的话，最好就不要去动，免得程序出错
feiyuese="feiyuecpbcpg"'如果更改session变量的话，只要将你想要的字母替换feiyue就可，如果不懂怎么更改的话，最好就不要去动，免得程序出错
logint=2 '管理日志保留天数
eventt=20 '事件日志保留天数
cpbdbq="mdb/db2.mdb"'ip地址数据库 

'头像设置
cpbfaces="images/"'头像目录，注意后面要加“/”
cpbfacestitle=""'头像文件名称,如果您的头像名称为image1，image2这样的类型，那么在引号里面输入                    “image”，后面的数字不需要输入，如果您的头像名称为1，2这样的，那么就留空不需                      要在引号里面输入任何字 
cpbfaceslb=".gif"'头像文件类型,注意前面要加"."
cpbface=40'头像个数

gradenum=16 '等级数目
cpbbq=20'表情个数
nowtime=dateadd("h",h_addtime,now())'更新时间
%>