<%
Dim SqlNowString,SiteSN,Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr
Const DataBaseType=0 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
Const SysVer=1
Const MsxmlVersion=".3.0" '系统采用XML版本设置
If DataBaseType=0 then
'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
DBPath = "/KS_Data/KesionCMS4.mdb" 'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
SqlNowString = "Now()"
Else
'如果是SQL数据库，请认真修改好以下数据库选项
DataServer = "(local)" '数据库服务器IP
DataUser = "sa" '访问数据库用户名
DataBaseName = "kesion" '数据库名称
DataBasePsw = "989066" '访问数据库密码
SqlNowString = "getdate()"
End if
'采集数据库路径
CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb"
Call OpenConn
Sub OpenConn()
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End
CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CollectDBPath)
End Sub
Sub CloseConn()
On Error Resume Next
Conn.close:Set Conn=nothing
End sub
%>
<%
function nav(classid)
dim wstr,navstr
sql="select ts from KS_Class where ID='"&classid&"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,3
dim arraystr
str=left(rs("ts"),len(rs("ts"))-1)
rs.close
arraystr=split(str,",")
for i=0 to ubound(arraystr)
wstr=wstr&"'"&arraystr(i)&"',"
next
wstr=left(wstr,len(wstr)-1)
sql="select FolderName from ks_class where id in("&wstr&")"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,3
while not rs.eof
navstr=navstr&">"&rs("FolderName")
rs.movenext
wend
nav=navstr
end function
kssql="select top 4 * from KS_Class where tn='20081780487383'"
set ksrs=server.createobject("ADODB.Recordset")
ksrs.open kssql,conn,1,3
ksrs.movefirst
kssql1="select * from KS_Class where tn='20081780487383'"
set ksrs1=server.createobject("ADODB.Recordset")
ksrs1.open kssql1,conn,1,3
ksrs1.movefirst
ksid=20080689193562
sql="select * from KS_Article where tid=(select ID from KS_Class where tn='"&ksid&"' and foldername='科室简介')"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,3
absql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid='20084756141454' and a.tid=b.id"
set abrs=server.createobject("ADODB.Recordset")
abrs.open absql,conn,1,3
if not abrs.bof and not abrs.eof then
abstr="/html/"&abrs("folder")&abrs("Fname")
end if
pxstr="#"
pxsql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20086747683732'"
set pxrs=server.createobject("ADODB.Recordset")
pxrs.open pxsql,conn,1,3
if not pxrs.bof and not pxrs.eof then
pxstr="/html/"&pxrs("folder")&pxrs("Fname")
end if
pxrs.close
hjstr="#"
hjsql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20081336661301'"
set hjrs=server.createobject("ADODB.Recordset")
hjrs.open hjsql,conn,1,3
if not hjrs.bof and not hjrs.eof then
hjstr="/html/"&hjrs("folder")&hjrs("Fname")
end if
hjrs.close
lxwmstr="#"
lxwmsql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20085008101012'"
set lxwmrs=server.createobject("ADODB.Recordset")
lxwmrs.open lxwmsql,conn,1,3
if not lxwmrs.bof and not lxwmrs.eof then
lxwmstr="/html/"&lxwmrs("folder")&lxwmrs("Fname")
end if
lxwmrs.close
tsstr="#"
tssql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20083010531402'"
set tsrs=server.createobject("ADODB.Recordset")
tsrs.open tssql,conn,1,3
if not tsrs.bof and not tsrs.eof then
tsstr="/html/"&tsrs("folder")&tsrs("Fname")
end if
tsrs.close
ysgstr="#"
ysgsql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20089869647251'"
set ysgrs=server.createobject("ADODB.Recordset")
ysgrs.open ysgsql,conn,1,3
if not ysgrs.bof and not ysgrs.eof then
ysgstr="/html/"&ysgrs("folder")&ysgrs("Fname")
end if
ysgrs.close
atherstr="#"
athersql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20081176700404'"
set atherrs=server.createobject("ADODB.Recordset")
atherrs.open athersql,conn,1,3
if not atherrs.bof and not atherrs.eof then
atherstr="/html/"&atherrs("folder")&atherrs("Fname")
end if
atherrs.close
msgsql="select top 9 memo from KS_GuestBook order by id desc"
set msgrs=server.createobject("ADODB.Recordset")
msgrs.open msgsql,conn,1,3
%>
<%
while not msgrs.eof
if len(msgrs("memo"))>12 then
response.write "·"&left(msgrs("memo"),12)&"..."
else
response.write "·"&msgrs("memo")
end if
msgrs.movenext
wend
%>
科室文章首页<%=nav(ksid)%>
<%
if not ksrs1.bof and not ksrs1.eof then
while not ksrs1.eof
response.write ""&ksrs1("FolderName")&""&" "
ksrs1.movenext
wend
end if
%>
