conn.asp

功能特点：1、在wap1.0的基础上添加了铃声栏目； 2、修改了后台程序中的一些错误； 3、优化了上传文件中的冗余； 4、

<%
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("../data/sn52#com.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

function decrypt(dcode)
 dim texts
 dim i
 for i=1 to len(dcode)
 texts=texts & chr(asc(mid(dcode,i,2))-i)
 next
 decrypt=texts
end function
function encrypt(ecode)
 Dim texts
 dim i
 for i=1 to len(ecode)
 texts=texts & chr(asc(mid(ecode,i,2))+i)
 next
 encrypt = texts
end function

sql="select * from config"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1

webtitle = Rs("webtitle")
weburl = Rs("weburl")
weblogo = Rs("weblogo")
copyright = Rs("copyright")

Rs.close
set Rs = nothing
%>