conn.asp

一个用ASP和ACCESS做的网络建站系统 1.WAP站长论坛网站系统【测试版】 2.只能添加一级主题栏目 3."文章栏目、文件栏目"添加栏目后再添加分类 4.可自定上传文件类型,上传目

<!--#include file=data.asp-->
<%
'--------------------------------------------------------------------------
Dim Conn, rs
Dim strSQLServerName		
Dim strSQLDBUserName		
Dim strSQLDBPassword		
Dim strSQLDBName
Const IsSqlDataBase = "0" '数据库模式 1 为MSSQL数据服务器 0 为ACCESS数据服务器		
'数据库参数设置
'--------------------------------------------------------------------------
strSQLServerName = "(local)"      '服务器名称或地址
strSQLDBUserName = "phonebook"             '数据库帐号
strSQLDBPassword = ""               '数据库密码
strSQLDBName = "phonebook"             '数据库名称
'--------------------------------------------------------------------------

if IsSqlDataBase="1" then

	Set Conn = Server.CreateObject("ADODB.Connection")
	StrSQL = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"


elseif IsSqlDataBase="0" then

	conn = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath(""&const_AccessDatabase&"")
	set rs = Server.Createobject("Adodb.Connection")
	rs.open conn

end if
function utf8(str)
if str="" or isnull(str) then
	tohtm=str
	exit function
end if
utf8 = replace(str,"&","&amp;")
utf8 = replace(utf8,"","&quot;")
utf8 = replace(utf8,"<","&lt;")
utf8 = replace(utf8,">","&gt;")
utf8 = replace(utf8," ","&nbsp;")
utf8 = replace(utf8,"$","$$")
utf8 = replace(utf8,"&#39;","'")
utf8 = replace(utf8,vbnewline,"<br/>")
end function
%>