commond.asp

来自「我的小网站个人利用业余时间设计的」· ASP 代码 · 共 154 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer=True

'定义 Cookie,Application 域
Const CookieName="love"

'站点开关操作
IF Not isNumeric(Application(CookieName & "_SiteEnable")) Then
	Application.Lock
	Application(CookieName & "_SiteEnable") = 1
	Application.UnLock
End IF
IF Application(CookieName & "_SiteEnable") = 0 AND Application(CookieName & "_SiteDisbleWhy")<>"" AND inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/admincp.asp") = 0  AND inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/logging.asp") = 0 Then
	Response.Write(Application(CookieName & "_SiteDisbleWhy"))
	Response.End
End IF

Dim StartTime
StartTime=Timer()

'定义站点名称，地址
Const SiteName="微生物在线答疑"
Const SiteUrl=""

'定义数据库链接文件
Const AccessFile="blogdata/L-Blog.mdb" 

'定义数据库连接
Dim Conn
IF Not IsObject(Application(CookieName&"_blog_Conn")) Then
	Set Conn= Server.CreateObject("ADODB.Connection")
	Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessFile)
	Conn.Open
	Application.Lock
	Set Application(CookieName&"_blog_Conn")=Conn
	Application.UnLock
Else
	Set Conn=Application(CookieName&"_blog_Conn")
End IF

Dim memName,memPassword,memStatus
memName=CheckStr(Request.Cookies(CookieName)("memName"))
memPassword=CheckStr(Request.Cookies(CookieName)("memPassword"))
memStatus=CheckStr(Request.Cookies(CookieName)("memStatus"))

IF memName<>Empty AND Session("GuestIP")=Empty Then
	Dim CheckCookie
	Set CheckCookie=Conn.ExeCute("SELECT mem_Name,mem_Password,mem_Status FROM blog_Member WHERE mem_Name='"&memName&"' AND mem_Password='"&memPassword&"' AND mem_Status='"&memStatus&"'")
	IF CheckCookie.EOF AND CheckCookie.BOF Then
		Response.Cookies(CookieName)("memName")=""
		memName=""
		Response.Cookies(CookieName)("memPassword")=""
		memPassword=""
		Response.Cookies(CookieName)("memStatus")=""
		memStatus=""
	End IF
	Set CheckCookie=Nothing
End IF

Dim SQL,TempVar,ForumName

'上传文件的大小以及后缀名限制
Const UP_FileSize ="10240000" '10M
Const UP_FileTypes="RAR,ZIP,SWF,JPG,PNG,GIF,DOC,TXT,CHM,PDF,ACE,JPG,MP3,WMA,WMV,MIDI,AVI,RM,RA,RMVB,MOV"
Dim UP_FileType
UP_FileType=Split(UP_FileTypes,",")

'站点统计代码
Dim Guest_IP
Guest_IP=Request.ServerVariables("REMOTE_ADDR")
IF Session("GuestIP")=Empty Then
	Dim Guest_Soft,Guest_Browser,Guest_OS
	Guest_Soft=Request.ServerVariables("HTTP_USER_AGENT")
	'浏览器
	IF Instr(Guest_Soft,"NetCaptor")>0 then
		Guest_Browser="NetCaptor"
	ElseIF Instr(Guest_Soft,"MSIE 6")>0 then
		Guest_Browser="Microsoft Internet Explorer 6.x"
	ElseIF Instr(Guest_Soft,"MSIE 5")>0 then
		Guest_Browser="Microsoft Internet Explorer 5.x"
	ElseIF Instr(Guest_Soft,"MSIE 4")>0 then
		Guest_Browser="Microsoft Internet Explorer 4.x"
	ElseIF Instr(Guest_Soft,"Netscape")>0 then
		Guest_Browser="Netscape"
	ElseIF Instr(Guest_Soft,"Opera")>0 then
		Guest_Browser="Opera"
	Else
		Guest_Browser="其他浏览器"
	End IF
	'操作系统
	IF Instr(Guest_Soft,"Windows NT 5.0")>0 Then
		Guest_OS="Windows 2000"
	ElseIF Instr(Guest_Soft,"Windows NT 5.2")>0 Then
		Guest_OS="Windows 2003"
	ElseIF Instr(Guest_Soft,"Windows NT 5.1")>0 Then
		Guest_OS="Windows XP"
	ElseIF Instr(Guest_Soft,"Windows NT")>0 Then
		Guest_OS="Windows NT"
	ElseIF Instr(Guest_Soft,"Windows 9")>0 Then
		Guest_OS="Windows 9x"
	ElseIF Instr(Guest_Soft,"unix") or Instr(Guest_Soft,"linux") or Instr(Guest_Soft,"SunOS") or Instr(Guest_Soft,"BSD") Then
		Guest_OS="类Unix操作系统"
	ElseIF Instr(Guest_Soft,"Mac") then
		Guest_OS="Mac"
	Else
		Guest_OS="其他操作系统"
	End IF
	Conn.ExeCute("INSERT INTO blog_Counter(coun_IP,coun_OS,coun_Browser) VALUES ('"&Guest_IP&"','"&Guest_OS&"','"&Guest_Browser&"')")
	Conn.ExeCute("UPDATE blog_Info SET blog_VisitNums=blog_VisitNums+1")
	Session("GuestIP")=Guest_IP
End IF

'写入问题分类
Dim Arr_Category
IF Not IsArray(Application(CookieName&"_blog_Category")) Then
	Dim log_Category,log_CategoryList
	TempVar=""
	Set log_CategoryList=Conn.Execute("SELECT cate_ID,cate_Name,cate_Order FROM blog_Category ORDER BY cate_Order ASC")
	Do While Not log_CategoryList.EOF
		log_Category=log_Category&TempVar&log_CategoryList("cate_ID")&"|"&log_CategoryList("cate_Name")&"|"&log_CategoryList("cate_Order")
		TempVar=","
		log_CategoryList.MoveNext
	Loop
	Set log_CategoryList=Nothing
	Arr_Category=Split(log_Category,",")
	Application.Lock
	Application(CookieName&"_blog_Category")=Arr_Category
	Application.UnLock
Else
	Arr_Category=Application(CookieName&"_blog_Category")
End IF

'写入表情符号
Dim Arr_Smilies
IF Not IsArray(Application(CookieName&"_blog_Smilies")) Then
	Dim log_Smilies,log_SmiliesList
	Set log_Smilies=Conn.Execute("SELECT sm_ID,sm_Image,sm_Text FROM blog_Smilies ORDER BY sm_ID ASC")
	TempVar=""
	Do While Not log_Smilies.EOF
		log_SmiliesList=log_SmiliesList&TempVar&log_Smilies("sm_ID")&"|"&log_Smilies("sm_Image")&"|"&log_Smilies("sm_Text")
		TempVar=","
		log_Smilies.MoveNext
	Loop
	Set log_Smilies=Nothing
	Arr_Smilies=Split(log_SmiliesList,",")
	Application.Lock
	Application(CookieName&"_blog_Smilies")=Arr_Smilies
	Application.UnLock
Else
	Arr_Smilies=Application(CookieName&"_blog_Smilies")
End IF
%>