Caught texts
%> '==============================================全局临时变量类结束============================== End Class '================================================ End Property ComeUrl= Session("M_ComeUrl") Public Property Get ComeUrl End Property Session("M_ComeUrl") = strVar Public Property Let ComeUrl(ByVal strVar) '====================标志来访地址================ End Function GetUrl = strTemp end if strTemp = strTemp & "?" & Trim(Request.QueryString) If Trim(Request.QueryString) <> "" Then strTemp = strTemp & Request.ServerVariables("URL") end if strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT") If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & Request.ServerVariables("SERVER_NAME") End If strTemp = "https://" Else strTemp = "http://" If LCase(Request.ServerVariables("HTTPS")) = "off" Then Dim strTemp On Error Resume Next Function GetUrl() End Function Sql_Use = Sql_Use + 1 End If Response.End() Set Execute = Nothing Err.Clear Response.Write("错误信息为:" & Err.Description & "
")
Response.Write("查询语句为:" & Command & "
")
If Err Then Set Execute = Conn.Execute(Command) On Error Resume Next If Not IsObject(Conn) Then OpenConn() Public Function Execute(Command) End Sub Set GCls=Nothing Private Sub Class_Terminate() End Sub ClubPreList = "forum" rem 伪静态小论坛版面列表前缀地址 ClubPreContent = "forumthread" rem 伪静态小论坛帖子前缀地址 StaticExtension = ".html" rem 内容模型伪静态扩展名 staticPreContent = "thread" rem 内容模型伪静态内容前缀 StaticPreList = "list" rem 内容模型伪静态列表前缀 不能包含"?"及"-" Private Sub Class_Initialize() Public StaticPreList,StaticPreContent,StaticExtension,ClubPreContent,ClubPreList Public Sql_Use Class GlobalVarCls Dim GCls:Set GCls=New GlobalVarCls '==============================================全局变量类开始============================== '=============================================二级域名配置结束======================================================== Const RootDomain = "kesion.com" rem 网站主域名根,如果有多个子域名,必须设置 Const EnabledSubDomain =false rem 网站频道是否启用二级域名 true表示启用 false表示没有启用 '====================================如果频道启用二级域名,请正确配置以下参数,否则可能导致会员不能登录========================== End sub Conn.close:Set Conn=nothing On Error Resume Next Sub CloseConn() End Sub CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CollectDBPath) If Err Then Set conn = Nothing:Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。
出错原因:" & Err.Description:Err.Clear:Response.End
conn.open ConnStr Set conn = Server.CreateObject("ADODB.Connection") End If DataPart_M = "'m'" DataPart_W = "'w'" DataPart_S = "'s'" DataPart_H = "'h'" DataPart_Y = "'yyyy'" DataPart_D = "'d'" SqlNowString = "Now()" ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) Else DataPart_M = "month" DataPart_W = "week" DataPart_S = "s" DataPart_H = "hour" DataPart_Y = "year" DataPart_D = "d" SqlNowString = "getdate()" ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";" If DataBaseType = 1 Then On Error Resume Next Sub OpenConn() Call OpenConn If CurrentPage<1 Then CurrentPage=1 If Not IsNumeric(CurrentPage) Then CurrentPage=1 CurrentPage=Request("Page") '=============================================================== 以下代码请不要自行修改======================================== CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb" '采集数据库路径 '========数据库设置结束======== End if DataBasePsw = "" '访问数据库密码 DataBaseName = "" '数据库名称 DataUser = "" '访问数据库用户名 DataServer = "" '数据库服务器IP '如果是SQL数据库,请认真修改好以下数据库选项 Else DBPath = "/KS_Data/wzx.mdb" 'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径 '如果是ACCESS数据库,请认真修改好下面的数据库的文件名 If DataBaseType=0 then '========数据库设置开始======== Const IsBusiness=False '是否正式官方授权版本,免费版本请填写False,正式版填写True '========认证密码结束======== Const SiteManageCode = "8888" '后台管理认证密码,请修改,这样即使有人知道了您的后台用户名和密码也不能登录后台 Const EnableSiteManageCode = False '是否启用后台管理认证密码 是: True 否: False '========认证密码开始======== Const MsxmlVersion=".3.0" '系统采用XML版本设置 '========数据库类型结束======== Const DataBaseType=0 '系统数据库类型,"1"为MS SQL2000数据库,"0"为MS ACCESS 2000数据库 '========数据库类型开始======== Dim Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H,DataPart_S,DataPart_W,DataPart_M,CurrentPage end if Response.End Response.AddHeader "Location", "http://www.fiveps.cn" Response.Status="301 Moved Permanently" if lcase(left(dm,3))<>"www" then dm=Request.ServerVariables("Server_name") '获取域名 Dim dm,sn <%
Cheatsheet

Lorem Ipsum adalah contoh teks atau dummy dalam industri percetakan dan penataan huruf atau typesetting. Lorem Ipsum telah menjadi standar contoh teks sejak tahun 1500an, saat seorang tukang cetak yang tidak dikenal