?? in_conn.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Session.CodePage=936 %>
<script language="JavaScript" charset='gb2312'>
var Startime,Endtime;
var now =new Date()
Startime=now.getTime()
</script>
<%
'頁面執行的開始時間
dim tm_start,tm_end
tm_start=timer()
%>
<!--#include file="in_conn_db.asp"-->
<%
Function stryin(str1)
stryin=Replace(str1,"'","''")
End Function
Function stryin2(str33)
stryin2=Replace(str33,chr(34),""")
End Function
'截取中英文字符串前n個全角位的函數
Function hhstr(str,cd)
Dim i
dim Sum
dim S,mo
Sum=0.0
for i=1 to Len(str)
S=Asc(mid(Str,i,1))
if S<0 Then
S=S+65536
end if
If S<256 then
Sum=Sum+0.5
Else
Sum=Sum+1
End If
If Sum>cd Then
if S<256 then
Sum=Sum-0.5
else
Sum=Sum-1
end if
if Sum<CD then
mo=" …"
else
mo="…"
end if
hhstr=Left(str,i-1)&mo
Exit Function
End if
Next
hhstr=str
End Function
'處理html標記的函數
Function unhtml(str)
dim vstr
dim l
l=len(str)
vstr=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
vstr=vstr+"<"
case ">"
vstr=vstr+">"
case chr(34)
vstr=vstr+"""
case "&"
vstr=vstr+"&"
case chr(13)
vstr=vstr+"<br>"
case chr(9)
vstr=vstr+" "
case chr(32)
'vstr=vstr+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
vstr=vstr+" "
else
vstr=vstr+" "
end if
else
vstr=vstr+" "
end if
case else
vstr=vstr+mid(str,i,1)
end select
next
unhtml=vstr
end Function
'去除html標注
Function KillHTMLLabel(str)
Dim n,m,str2
n = inStr(str,"<")
m = inStr(str,">")
str2 = str
Do while n > 0 and n < m
str2 = Left(str2,n-1) & Mid(str2,m+1)
n = inStr(str2,"<")
m = inStr(str2,">")
Loop
KillHTMLLabel = str2
End Function
'去除段落末尾的回車
Function jiewei(strwei)
dim lenwei
dim str4
lenwei=LEN(strwei)-2
str4=strwei
DO UNTIL right(str4,2)<>vbCrLf
str4=left(str4,lenwei)
lenwei=LEN(str4)-2
LOOP
jiewei=Replace(str4,vbCrLf&vbCrLf,vbCrLf)
End Function
'獲取站點默認信息
dim DEF_webname,DEF_weburl,DEF_classname,DEF_sysadm,DEF_logo,DEF_top
dim DEF_msgmax,DEF_top_w,DEF_top_h
sqlstr="SELECT webname,weburl,classname,sysadm,msgmax,logofile,topfile,topw,toph,mb_check,pg_txb,pg_bbs,pg_topic,pg_fj,val_log,val_pub,cl_1,cl_2,cl_3,cl_4,cl_5,cl_6,cl_7 FROM tblsys"
rs.Open sqlstr,conn,1,1
if rs.eof AND rs.bof then
Response.write "數據庫出錯"
Response.End
else
DEF_webname=rs("webname")
DEF_weburl=rs("weburl")
DEF_classname=rs("classname")
DEF_msgmax=rs("msgmax")
DEF_sysadm=rs("sysadm")
DEF_logo=rs("logofile")
DEF_top=rs("topfile")
DEF_top_w=rs("topw")
DEF_top_h=rs("toph")
DEF_mb_chk=rs("mb_check")
DEF_pg_txb=rs("pg_txb")
DEF_pg_bbs=rs("pg_bbs")
DEF_pg_topic=rs("pg_topic")
DEF_pg_fj=rs("pg_fj")
DEF_val_log=rs("val_log")
DEF_val_pub=rs("val_pub")
DEF_cl1=rs("cl_1")
DEF_cl2=rs("cl_2")
DEF_cl3=rs("cl_3")
DEF_cl4=rs("cl_4")
DEF_cl5=rs("cl_5")
DEF_cl6=rs("cl_6")
DEF_cl7=rs("cl_7")
end if
rs.close
'檢查是否已經登錄，如果cookies有永久登陸的信息，則從cookies獲取登陸信息
if Session("sname")="" AND Request.Cookies(DEF_weburl)("name")<>"" then
sqlstr="SELECT lastlog,cnt_on FROM tblmates WHERE name='"&stryin(Request.Cookies(DEF_weburl)("name"))&"'"
rs.open sqlstr,conn,1,3
if NOT(rs.eof AND rs.bof) then
Session("sname")=Request.Cookies(DEF_weburl)("name")
Response.Cookies(DEF_weburl).Expires=DateAdd("d",1000,Date())
rs("lastlog")=now()
rs("cnt_on")=rs("cnt_on")+1
rs.update
end if
rs.close
end if
dim u_name
u_name=Session("sname")
'成員積分級別函數
dim DEF_vclass
Function umark(iion,iiwater)
dim iiclass,iitotal
iitotal=iion*DEF_val_log+iiwater*DEF_val_pub
IF iitotal<=20 THEN
iiclass=1
ELSEIF iitotal<=50 THEN
iiclass=2
ELSEIF iitotal<=100 THEN
iiclass=3
ELSEIF iitotal<=200 THEN
iiclass=4
ELSEIF iitotal<=300 THEN
iiclass=5
ELSEIF iitotal<=400 THEN
iiclass=6
ELSEIF iitotal<=600 THEN
iiclass=7
ELSEIF iitotal<=800 THEN
iiclass=8
ELSEIF iitotal<=1100 THEN
iiclass=9
ELSEIF iitotal<=1400 THEN
iiclass=10
ELSEIF iitotal<=1700 THEN
iiclass=11
ELSEIF iitotal<=2000 THEN
iiclass=12
ELSEIF iitotal<=3400 THEN
iiclass=13
ELSEIF iitotal<=4800 THEN
iiclass=14
ELSEIF iitotal<=6200 THEN
iiclass=15
ELSEIF iitotal<=8000 THEN
iiclass=16
ELSEIF iitotal<=12000 THEN
iiclass=17
ELSEIF iitotal<=20000 THEN
iiclass=18
ELSEIF iitotal<=25000 THEN
iiclass=19
ELSEIF iitotal<=30000 THEN
iiclass=20
ELSEIF iitotal>30000 THEN
iiclass=21
END IF
SELECT CASE iiclass
Case 1,2,3
Response.Write "<br>等級"&iiclass&" [頭銜：<font color='#000000'>"&DEF_cl1&"</font>]<br><img src='img/c1.gif' border='0' alt='當前積分："&iitotal&"'>"
Case 4,5,6
Response.Write "<br>等級"&iiclass&" [頭銜：<font color='#131987'>"&DEF_cl2&"</font>]<br><img src='img/c2.gif' border='0' alt='當前積分："&iitotal&"'>"
Case 7,8,9
Response.Write "<br>等級"&iiclass&" [頭銜：<font color='#E40001'>"&DEF_cl3&"</font>]<br><img src='img/c3.gif' border='0' alt='當前積分："&iitotal&"'>"
Case 10,11,12
Response.Write "<br>等級"&iiclass&" [頭銜：<font color='#FF870F'>"&DEF_cl4&"</font>]<br><img src='img/c4.gif' border='0' alt='當前積分："&iitotal&"'>"
Case 13,14,15
Response.Write "<br>等級"&iiclass&" [頭銜：<font color='#1D3817'>"&DEF_cl5&"</font>]<br><img src='img/c5.gif' border='0' alt='當前積分："&iitotal&"'>"
Case 16,17,18
Response.Write "<br>等級"&iiclass&" [頭銜：<font color='#100063'>"&DEF_cl6&"</font>]<br><img src='img/c6.gif' border='0' alt='當前積分："&iitotal&"'>"
Case 19,20,21
Response.Write "<br>等級"&iiclass&" [頭銜：<font color='red'>"&DEF_cl7&"</font>]<br><img src='img/c7.gif' border='0' alt='當前積分："&iitotal&"'>"
END SELECT
DEF_vclass=iiclass
End Function
'訪問統計相關
IF Request.Cookies("uck").HasKeys THEN
Response.Cookies("uck").Expires=DateAdd("n",20,now())
END IF
'清理封禁情況
sqlstr="UPDATE tblmates SET power=1 WHERE power<0 AND fobdate<#"&CDate(FormatDateTime(now(),2))&"#"
conn.Execute sqlstr
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =DEF_webname %></title>
<style type="text/css">
<!--#include file="style.asp"-->
</style>
<style type='text/css'id='defaultPopStyle'>
.cPopText { font-family: Verdana, 宋體; background-color: <% =cohover %>; border: 3px <% =cohover %> double; font-size: 11px;color: #FFFFFF; padding-right: 2px; padding-left: 2px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}
</style>
<script language="JavaScript" charset='gb2312' src="common.js"></script>
</head>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -