这个程序的问题在那里。帮帮忙修改一下!!!!
(一)conn.asp文件
<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim conn,connstring,dbpath
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("data/data.mdb")'
connstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
'如果你用的是较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpath
conn.open connstring
%>
(二)const.asp文件
<%
dim i
dim strsql,rs
dim admin_name,admin_password,admin_qq,admin_email
dim admin_homepage,admin_webname
dim user_id,user_name,user_image,user_address,user_ip,user_qq,user_homepage,user_webname
dim user_email,user_silent,user_time,user_content,reply_y_n,reply_content,reply_time
dim gb_name,gb_address,gb_pagecount,gb_image,gb_width,gb_height
dim gb_editioner,gb_time,gb_bulletin
dim action,page,id
dim islogin,username,password
strsql = "select * from gbfined"
set rs = conn.Execute (strsql)
gb_name = rs("gb_name")
gb_address = rs("gb_address")
gb_pagecount= rs("gb_pagecount")
gb_image= rs("gb_image")
gb_width= rs("gb_width")
gb_height= rs("gb_height")
gb_editioner= rs("gb_editioner")
gb_bulletin= rs("gb_bulletin")
gb_time= rs("gb_time")
rs.close
set rs=nothing
if session("adminpress")<>"" then
strsql = "select * from admin"
set rs = conn.Execute (strsql)
admin_name=rs("admin_name")
admin_password=rs("admin_password")
admin_qq=rs("admin_qq")
admin_email=rs("admin_email")
admin_homepage=rs("admin_homepage")
admin_webname=rs("admin_webname")
rs.close
set rs=nothing
else
admin_name=""
admin_password=""
admin_qq=""
admin_email=""
admin_homepage=""
admin_webname=""
end if
%>