% option explicit %>
<%
dim conn
dim connstr
call conn_init()
sub conn_init()
connstr = "DBQ=" + server.mappath("news/news.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
end if
end if
end sub
sub endConnection()
conn.close
set conn=nothing
end sub
%>
<%
dim THCOLOR, TDCOLORD, TDCOLORL, TBCOLOR, BGCOLOR,HBARCOR
dim homepage
dim FIRSTNO, PERPAGE
FIRSTNO = 5 '首页显示新闻个数
PERPAGE = 5 '每页显示记录数
function htmlencode(str)
htmlencode=replace(replace(str,chr(13)," "),"'","''")
end function
%>
<% dim rs, sql, rs1, sql1
set rs = server.createobject("adodb.recordset")
set rs1 = server.createobject("adodb.recordset")
%>
英文识别软件TypeReader,核心技术由南开大学机器智能研究所研究、开发,产品由美国ExperVision公司(现南开越洋)于1991年推出、打入国际市场。其中:TypeReader
for Windows是第一个由中国人开发并打入国际市场的PC软件(1991)TypeReader for Macintosh是第一个由中国人开发并打入国际市场的苹果电脑麦金塔软件(1992)。