?? config.asp
字號:
<%
Set bbsinfo = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM bbsinfo"
bbsinfo.open sql, conn, 1,1
bbsname=bbsinfo("bbsname")
logo=bbsinfo("logo")
logourl=bbsinfo("logourl")
ll=bbsinfo("ll")
tp=bbsinfo("tp")
online=bbsinfo("online")
advshow=bbsinfo("advshow")
smtp=bbsinfo("smtp")
MailServerUserName=bbsinfo("MailServerUserName")
MailServerPassword=bbsinfo("MailServerPassword")
upload=bbsinfo("upload")
uploadlx=bbsinfo("uploadlx")
bbsinfo.close
set bbsinfo=nothing
if upload=0 and session("manbid")<>20000 then
response.Write(""&uploadlx&"")
response.End()
end if
if session("username") <> empty then
sql="select * from [shop_user] where username='"&session("username")&"'"
Set Rs=Conn.Execute(SQL)
if rs.eof then session("username")=""
if session("userpassword") <> rs("UserPassword") then session("username")=""
if int(session("manbid"))<>rs("manbid") then session("username")=""
set rs=nothing
end if
function HTMLEncode(fString)
fString=replace(fString,";",";")
fString=replace(fString,"<","<")
fString=replace(fString,">",">")
fString=replace(fString,"\","\")
fString=replace(fString,"--","--")
fString=replace(fString,"'","'")
fString=replace(fString,CHR(34),""")
fString=replace(fString,vbCrlf,"<br>")
HTMLEncode=fString
end function
''''''''''替換模塊START''''''''''''
Function ReplaceText(fString,patrn, replStr)
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設置模式。
regEx.IgnoreCase = True ' 設置是否區分大小寫。
regEx.Global = True ' 設置全局可用性。
ReplaceText = regEx.Replace(fString, replStr) ' 作替換。
End Function
''''''''''替換模塊END''''''''''''
function ContentEncode(fString)
fString=Replace(fString ,vbCrLf,"<br>")
fString=Replace(fString,chr(32)&chr(32), "<BR>")
fString=replace(fString,vbCrlf, "")
fString=replace(fString,"\","\")
fString=replace(fString,"'","'")
fString=replace(fString,"我愛你gege","<Img src=../gege.jpg>")
fString=ReplaceText(fString,"<(.[^>]*)(&#|cookie|window.|Document.|javascript:|js:|vbs:|about:|file:|on(blur|click|change|Exit|error|focus|finish|key|load|mouse))", "<$1$2$3")
fString=ReplaceText(fString,"<(\/|)(iframe|object|SCRIPT|form|style|meta|TEXTAREA)", "<$1$2")
ContentEncode=fString
end function
function IsValidEmail(email)
dim names, name2, i, c
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name2 in names
if Len(name2) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name2)
c = Lcase(Mid(name2, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name2, 1) = "." or Right(name2, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function
function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("會員")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLength=t
else
strLength=len(str)
end if
if err.number<>0 then err.clear
end function
response.write" <script src=inc/bbs.js></script>"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -