on your web server , use the Oracle's Net Configuration Assistant to create a Local Net Service Name for your remote Oracle server, then use ODBC Administrator to create a system DSN
set orasession=createobject("oracleinprocserver.xorasession")
set oradatabase=orasession.dbopendatabase("pa1003","pafman/pafman",0)
'注意: 数据库在此打开!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
sql = "select clink,ctitle,cdest,cdptcde,to_char(ddate,'mm-dd HH24:mi') ddate1,ddate from kdptinfo where cdest<>'经理信息' and cdest<>'新闻栏' and cdest<>'群马笑秋风' and cdest<>'群马业绩通报' order by ddate desc"
set oradynaset = oradatabase.dbcreatedynaset(sql,0)
if oradynaset.recordcount > 0 then
j=0
do until oradynaset.eof
response.write "<table>"
response.write "<font color='#FF9966'>◇ </font>"
if oradynaset.fields("cdest")="部门主页" then
response.write "<a href=bmzy\" & oradynaset.fields("clink") & " target=_blank>"
else
response.write "<a href=" & oradynaset.fields("clink") & " target=_blank>"
end if
if oradynaset.fields("ddate")>=Date then
response.write "<font color='#FF0000'>"
end if
response.write oradynaset.fields("ctitle")
if oradynaset.fields("ddate")>=Date then
response.write "</font>"
end if
response.write "</a>"
response.write " (" & oradynaset.fields("cdptcde") & " " & oradynaset.fields("ddate1") & ")"
response.write "</table>"
j=j+1
if j>=12 then
exit do
end if
oradynaset.movenext
loop
end if
'注意:数据库还未关闭!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
oradynaset.close'先把数据集关闭
set oradynaset=nothing
'关闭数据库
oradatabase.close
set oradatabase=nothing
set orasession=nothing