efault.asp 站长俱乐部新闻发布系统精简版 1.01源码程序 - ASP源码程序

www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > default.asp
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
Response.Buffer = true
'On Error Resume Next
Dim objError 
%>
<% Session.Timeout = 20 %>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="admin/connections/oConn_db.asp" -->
<html>
<head>
<!--#include file="admin/errors/errors.asp" -->
<%
Dim FileSystemObject, FileExists

'If MSAccess, verify that the database exists to prevent the server hanging
if (db_STRING <> "") then
	Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
	If FileSystemObject.FileExists(db_STRING) Then
		FileExists = True
	Else
		FileExists = False
	End If
	Set FileSystemObject = Nothing
else
	FileExists = True
end if	
	
If FileExists then
%>
	<!--#include file="admin/queries/query.asp" -->
	<%
        If errorFound <> true then
        	dim titleTag
        	titleTag = Request.QueryString("itemTitle")
        	titleTag = Replace(titleTag,"="," ")
        	titleTag = Replace(titleTag,"<"," ")
		titleTag = Replace(titleTag,">"," ")
		titleTag = Replace(titleTag,"/"," ")
		titleTag = Replace(titleTag,"#","")
        	if titleTag <> "" then
                %>
        	<title><%= Site_name %> - <%= titleTag %></title>
        	<%
        	else
  	        %>
	        <title><%= Site_name %></title>
        	<%
        	end if
        	%>
	<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
	<meta name="keywords" content="<%= Meta_keywords %>" />
	<meta name="description" content="<%= Meta_description %>" />
	<!--#include file="default_lang.asp" -->
	<!--#include file="default_main.asp" -->
	<%
        end if
        %>
<%
else
	dataErrorGeneric(db_STRING)
end if
%>