|
|
#5
hongxiaodou2014-06-03 14:00
以下是connection.asp所显示
<% @ language = "VBScript" codepage = "936" %>
<%
option explicit
'on error resume next
dim db, conn, connstr, rs, sql, fso
%>
<!-- #include file="config.asp" -->
<%
set conn = server.createobject("adodb.connection")
connstr = "provider = microsoft.jet.oledb.4.0; data source = " & server.mappath(acc_db)
conn.open connstr
if err then
response.write "数据库连接失败，请检查数据库是否已经正确安装，或者数据库的配置是否正确。"
response.end
end if
dim dbmunber
dbmunber = "1037_"
response.buffer = true
response.expires = 0
response.expiresabsolute = now() - 1
response.cachecontrol = "no-cache"
response.cachecontrol = "no-store"
dim myip, myiptemp, myclient
myip = request.servervariables("http_x_forwarded_for")
myclient = request.servervariables("http_user_agent")
if myip = "" then
myip = request.servervariables("remote_addr")
end if
myiptemp = split(myip, ":")
myip = myiptemp(0)
dim ename, etitle, eurl, elogo, ekeywords, edescription, ecopyright, echecktel, eservicetel, eserviceqq, etodayinfo, emailid, emailpw, emailsmtp, emember, eonline
dim navpage, id, act, key, sql_where, page, recordnum, pagenumber, m, n, p
navpage = 0
id = saferequest(request.querystring("id"), 1)
set rs = server.createobject("adodb.recordset")
sql = "select * from [" & dbmunber & "config]"
rs.cursorlocation = 3
rs.open sql, conn, 1, 1
ename = rs(0)
etitle = rs(1)
eurl = rs(2)
elogo = rs(3)
ekeywords = rs(4)
edescription = rs(5)
ecopyright = rs(6)
echecktel = rs(7)
eservicetel = rs(8)
eserviceqq = rs(9)
etodayinfo = rs(10)
emailid = rs(11)
emailpw = rs(12)
emailsmtp = rs(13)
rs.close
set rs = nothing
set rs = server.createobject("adodb.recordset")
sql = "select [id] from [" & dbmunber & "member]"
rs.cursorlocation = 3
rs.open sql, conn, 1, 1
emember = rs.recordcount
rs.close
set rs = nothing
eonline = Application("ActiveUsers")
%>
<!-- #include file="function.asp" -->
<!-- #include file="md5.asp" -->
|
