这个程序的问题在那里。帮帮忙修改一下！！！！

ipsoft 2003-08-23 12:07:16

（一）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
%>

...全文

65 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

luok 2003-08-24

打赏
举报

没有看你的程序,因为,我没有那么多时间.

遇到问题，你自己至少要简单的消化一下, 不要一下把全部程序给别人，让别人帮你调试.

aloxy 2003-08-24

打赏
举报

问题在：
sub bottom(gb_editioner)%>
<br>
<table border="0" cellspacing="1" cellpadding="1" width=98%>
<tr><td align="center" height=16>
<hr size="1" color="silver" width="30%">
<%=gb_editioner%></td></tr>
<tr><td align="center" height=16>Copyright © 2002- 2003 <a href="http://www.5dmeng.com" target=_blank name=down>5dmeng.com</a> All Rights Reserved</td></tr>

</table></td></tr></table>
<%end sub%>
中。
Sub的内容应该写在一个<% %>内，用response.write "<br>"等
输出中间的HTML内容

ipsoft 2003-08-24

打赏
举报

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/IGBOOK/index.asp，行5

ipsoft 2003-08-23

打赏
举报

（三）inc.asp


<%'＝＝＝＝＝＝页面头和导航条
sub top(gb_name)%>
<html>
<head>
<title><%=gb_name%>留言簿</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh_cn">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="daifo,呆佛">
<meta name="authorSite" content="www.5dmeng.com">
<meta name="Keywords" content="<%=gb_name%>,asp教程,织梦帝国,织梦帝国留言簿,呆佛,daifo,code,download,articles,guestbook,源代码">
<link rel="stylesheet" href="styls.css">
</head>
<body leftmargin="0" topmargin="2">
<table align=center border="0" width=98% bgcolor="#FFFFFF">
<tr><td align="center"><img src="<%=gb_image%>" width="<%=gb_width%>" height="<%=gb_height%>"></td></tr>
<tr><td>
<table align=center border="0" width="75%" cellspacing="0" cellpadding="0">
<tr>
<td align=left width="80%">
<font color=#999933>◎</font>
<a href="<%=gb_address%>" title="返回主页">主页</a>
<font color=#663300>◎</font>
<a href="index.asp" title="点击查看留言">查看留言</a>
<font color=red>◎</font>
<a href="index.asp?action=input" title="点击留言点东西">签写留言</a>
<font color=#339900>◎</font>
<%if session("adminpress")="" then%>
<a href="index.asp?action=manage" title="管理员必须先登录">留言管理</a>
<%else%>
<a href="index.asp?action=m_person" title="修改管理员个人资料">改资料</a>
<font color=#6633FF>◎</font>
<a href="index.asp?action=m_write" title="修改留言簿一些参数">改配置</a>
<font color=#006666>◎</font>
<a href="index.asp?action=logout" title="退出登录">退出</a>
<%end if%>
<font color=#999933>◎</font>
</td></tr>
</table>
<%end sub
'＝＝＝＝＝＝页面低
sub bottom(gb_editioner)%>
<br>
<table border="0" cellspacing="1" cellpadding="1" width=98%>
<tr><td align="center" height=16>
<hr size="1" color="silver" width="30%">
<%=gb_editioner%></td></tr>
<tr><td align="center" height=16>Copyright © 2002- 2003 <a href="http://www.5dmeng.com" target=_blank name=down>5dmeng.com</a> All Rights Reserved</td></tr>

</table></td></tr></table>
<%end sub%>

(四) index.asp

<center>
<%call top(gb_name)%>
<br><br><br><br>
<%call bottom(gb_editioner)%>
</center>

Jaron 2003-08-23

打赏
举报

set rs = conn.Execute (strsql)
if not(rs.eof and rs.bof) then
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")
end if
rs.close
set rs=nothing