1.
我用set xxx=conn.execute(...........这种连接方式后
为什么不支持absolutpage
2.
我的程序为什么不验证数据了？
3.
我仿照别人的程序编的首页调用为什么一直说第一行有错？

因为一个网页四五百行，不方便在这里帖出来。
只好给大家一个下载地址，请放心，没有木马。
netme.eoa.net.cn/home/tmboy/news.rar
多谢。

第一个你既然知道答案了就不必解释了，2个问题应该说说具体原因！

3个问题把错误类型说说，你这么问问题，没法回答！

第一个问题算是迷迷糊糊解决了。

TO：PIGEON
这段代码不是我手写的，是DW MX自动生成的。
我也发现好怪，DW MX新建ASP文件时第一就自动写这一行。
每次我都要删除。
我想问一下，你说的这段代码在哪个文件里出现？
我找半天也没有找到。
首页调用的文件是123.HTM和TOP.ASP
一直提示第一行有错,我删了第一行还是提示第一行有错.

第二个问题我实在说不出原因.
它没有什么提示错误地方,只是我编的验证提示那不能正常显示.
你把代码帖出来吧,好长的哦.
NEW.ASP文件:


<% call checklogin() %>









<% call menu() %>
<%
select case request("action")
case "add"
    call add()
case "saveadd"
    call saveadd()
    if finderr then call errmsg()
case "del"
    call del()
case "edit"
    call edit()
case "saveedit"
    call saveedit()
    if finderr then call errmsg()
case else
    call view()
end select
%>
<% sub view() %>

添加新闻              <%         set show_type=server.createobject("adodb.recordset")         sql="select * from type order by type_id desc"         show_type.open sql,conn,1,1                             if show_type.eof then         response.write ""         else                 do while not show_type.eof         %>                 <%         show_type.movenext                 loop                 show_type.close         set show_type=nothing         end if         %>         ==选择分类== 目前没有分类！                          "><%=show_type("type_name")%>               搜索: 按标题搜索 按内容搜索

<%type_id=request("type_id")              if type_id=empty then              response.write "请选择新闻分类!"              response.end              end if              set rs=server.createobject("adodb.recordset")              rs.open "select type_name from type where type_id="& type_id,conn,1,1              response.write rs("type_name")%> Type.........           <%      set show_news=server.createobject("adodb.recordset")      sql="select * from data where type_id="&type_id&" order by news_id desc"      show_news.open sql,conn,1,1      if show_news.eof then      response.write ""      else      const ShowNum=10          show_news.pagesize=ShowNum      totalrecord=show_news.recordcount      maxpage=show_news.pagecount      requestpage=clng(request("page"))      if requestpage="" or requestpage=0 then requestpage=1      end if      if resquestpage>maxpage then resquestpage=maxpage      end if      show_news.absolutepage=requestpage      for i=1 to show_news.pagesize      %> <%         show_news.movenext         if show_news.eof then exit for         next         end if         show_news.close         set show_news=nothing         %> 标题 阅读 添加时间 删除 修改 目前没有新闻！ · ')"><%=show_news("title")%> <%=show_news("hits")%> <%=show_news("addtime")%> ">X ">E 共 <%=totalrecord%> 条|共 <%=maxpage%> 页 [ <%             For i=1 to maxpage             Response.Write ""&i&" "             Next             %>]

<%
end sub
sub add()
%>

* 类别： <%                  set show_type=server.CreateObject("adodb.recordset")                  sql="select * from type order by type_id desc"                  show_type.open sql,conn,1,1                  if show_type.eof then                  %> 目前没有类别 <% else %> 请你选择类别 <% do while not show_type.eof %> "><%=show_type("type_name")%> <%                  show_type.movenext                  loop                  show_type.close                  set show_type=nothing                  end if                  %> * 标题： 作者： 出处： * 内容：

<%
end sub
sub saveadd()
%>
<%
if request("type_id")="请选择分类" then
emsg=emsg & "
" & "

请选择分类!"
finderr=true
end if
if request("title")=empty then
emsg=emsg & "
" & "

请输入标题!"
finderr=true
elseif len(request("title"))<3 then
emsg=emsg & "
" & "

请正确输入标题！（不少于3个字符)"
finderr=true
end if
if request("content")=empty then
emsg=emsg & "
" & "

请输入内容!"
finderr=true
elseif len(request("content"))<10 then
emsg=emsg & "
" & "

请正确输入内容！(不少于10个字符）"
finderr=true
end if
set save_news=server.createobject("adodb.recordset")
sql="select * from data"
save_news.open sql,conn,1,3
save_news.addnew
save_news("type_id")=request.form("type_id")
save_news("title")=trim(request.form("title"))
save_news("author")=trim(request.form("author"))
save_news("from")=trim(request.form("from"))
save_news("content")=request.form("content")
save_news("hits")=1
save_news("addtime")=date()
save_news.update
save_news.close
set save_news=nothing
response.redirect ("new.asp?action=view")
%>
<%
end sub
sub del()
%>
<%
if not request("delete_id")=empty then
sql="delete * from data where news_id="& request("delete_id")
conn.execute (sql)
end if
response.redirect ("new.asp?action=view")
%>
<%
end sub
sub edit()
%>
<%
set edit_new=server.createobject("adodb.recordset")
sql="select * from data where news_id="& request("edit_id")
edit_new.open sql,conn,1,1
%>

"> 分类： <%set show_type=server.createobject("adodb.recordset")      sql="select * from type order by type_id desc"      show_type.open sql,conn,1,1 if show_type.eof then%>          目前没有分类      <%else%>                 请选择分类                 <%do while not show_type.eof%> "><%=show_type("type_name")%> <% show_type.movenext                  loop                  end if                  show_type.close                  set show_type_=nothing%> 标题： " size="15"> 作者： " size="15"> 出处： " size="15"> 内容： <%=edit_news("content")%>

<%
end sub
sub saveedit()
%>
<%
if request("type_id")="请选择分类" then
emsg=emsg & "
" & "

请选择分类!"
finderr=true
end if
if request("title")=empty then
emsg=emsg & "
" & "

请输入标题!"
finderr=true
elseif len(request("title"))<3 then
emsg=emsg & "
" & "

请正确输入标题！（不少于3个字符)"
finderr=true
end if
if request("content")=empty then
emsg=emsg & "
" & "

请输入内容!"
finderr=true
elseif len(request("content"))<10 then
emsg=emsg & "
" & "

请正确输入内容！(不少于10个字符）"
finderr=true
end if
set save_edit_new=server.createobject("adodb.recordset")
sql="select * from data where book_id="& request("book_id")
save_edit_new.open sql,conn,1,3
save_edit_new("type_id")=request("type_id")
save_edit_new("title")=trim(request("title"))
save_edit_new("author")=trim(request("author"))
save_edit_new("from")=trim(request("from"))
save_edit_new("content")=request("content")
save_edit_new("addtime")=date()
save_edit_new.update
save_edit_new.close
set save_edit_new=nothing
response.redirect ("new.asp?action=view")
%>
<% end sub %>
<% call copy() %>



PUBLIC.ASP文件:
<%
rem 公共函数
sub head()
%>

首页 <% set show_type=server.createobject("adodb.recordset") sql="select * from type" show_type.open sql,conn,1,1 if show_type.bof or show_type.eof then response.write "没有分类！" else do while not show_type.eof %> | "> <%=show_type("type_name")%> <% show_type.movenext loop end if show_type.close set show_type=nothing %>

<%
end sub
sub menu()
%>

管理首页

新闻管理

分类管理

密码管理

退出管理

<%
end sub
sub copy()
%>

Copyright © 2001-2002 E-ssp.Com. All Rights Reserved

<% closedatabase %>
<%
end sub
sub sucmsg()
%>

成功信息！

<%=smsg%>,程序将在2秒种后自动跳转......

<%
end sub
sub errmsg()
%>

错误信息！

<%=emsg%>

<-">返回->

<%
end sub
sub checklogin()
%>
<%
if not session("admin")=true then
response.redirect ("login.asp?action=login")
response.end
end if
%>
<% end sub %>

CONN.ASP文件:
<%@LANGUAGE="VBSCRIPT"%>
<%
set conn=server.CreateObject("adodb.connection")
dbq=server.MapPath("news.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbq
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

你看，我说提供原程序下载吧。没有人下。
我把原文件帖出来吧，太长，也没有人看。
哎。