这个CONN.ASP数据库路径在哪?
<%functionDBCN()setDBCN=Server.CreateObject("ADODB.Connection")'strDB="driver={sqlser...
<%
function DBCN()
set DBCN=Server.CreateObject("ADODB.Connection")
'strDB="driver={sql server};server=(local);uid=sa;pwd=;database=jchat"
'strDB="Data Source=jchat4;User ID=;Password=;driver=Microsoft Access Driver (*.mdb)"
strDB="driver={sql server};Data Source=jchat;uid=sa;pwd=test654321"
DBCN.open strDB
if not Err="" and Err<>0 then
set DBCN=nothing
end if
end function
function htmlencode(fString)
if isnull(fString) then fString=""
if fString<>"" then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), "<br>")
end if
htmlencode = fString
end function
function htmldecode(fString)
if isnull(fString) then fString=""
if fString<>"" then
fString = replace(fString, "<br>", CHR(10))
end if
htmldecode = fString
end function
%> 展开
function DBCN()
set DBCN=Server.CreateObject("ADODB.Connection")
'strDB="driver={sql server};server=(local);uid=sa;pwd=;database=jchat"
'strDB="Data Source=jchat4;User ID=;Password=;driver=Microsoft Access Driver (*.mdb)"
strDB="driver={sql server};Data Source=jchat;uid=sa;pwd=test654321"
DBCN.open strDB
if not Err="" and Err<>0 then
set DBCN=nothing
end if
end function
function htmlencode(fString)
if isnull(fString) then fString=""
if fString<>"" then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), "<br>")
end if
htmlencode = fString
end function
function htmldecode(fString)
if isnull(fString) then fString=""
if fString<>"" then
fString = replace(fString, "<br>", CHR(10))
end if
htmldecode = fString
end function
%> 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询