第一个问题算是迷迷糊糊解决了。
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 %>
|
<%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 %>
共 <%=totalrecord%> 条|共 <%=maxpage%> 页 [ <% For i=1 to maxpage Response.Write " "&i&" " Next %>] | |
<%
end sub
sub add()
%>
<%
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
%>
<%
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()
%>
<%
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
%>