<%
  connstr="DBQ="+server.mappath("data/#saiyi_system#.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  set conn=server.createobject("ADODB.CONNECTION")
  conn.open connstr 
  
Dim WebName,webcopyright,webaddress,webtel,websupport
set rs=server.createobject("adodb.recordset")
sql="select * from sys_company order by id desc"
rs.open sql,conn,3,3
WebName = rs("company")
Webcopyright = rs("copyright")
Webaddress = rs("address")
Webtel = rs("tel")
Websupport = rs("support")

function nosql(str)
if not isnull(str) then
str=trim(str)
str=replace(str,";","&#59;")        '分号
str=replace(str,"'","&#39;")        '单引号
str=replace(str,"""","&quot;")        '双引号
str=replace(str,"chr(9)","&nbsp;")    '空格
str=replace(str,"chr(10)","<br>")    '回车
str=replace(str,"chr(13)","<br>")    '回车
str=replace(str,"chr(32)","&nbsp;")    '空格
str=replace(str,"chr(34)","&quot;")    '双引号
str=replace(str,"chr(39)","&#39;")    '单引号
str=Replace(str, "script", "&#115cript")'jscript
str=replace(str,"<","&lt;")            '左<
str=replace(str,">","&gt;")            '右>
str=replace(str,"(","&#40;")            '左(
str=replace(str,")","&#41;")            '右)
str=replace(str,"--","&#45;&#45;")    'SQL注释符
nosql=str
end if
end function
%>