ASP中ADO连接问题 5
1主界面<%setconn=Server.CreateObject("ADODB.Connection")conn.Open("driver={MicrosoftAcce...
1 主界面
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("news.asp"))
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM news"
rs.Open sql, conn,1,3
rs.PageSize = 10
'第一次显示没有页码，默认显示第一页
If Request("page") <> "" Then
iPage = Cint(Request("page"))
If iPage < 1 Then iPage = 1 '页码小于1，则显示第一页
'当大于总页数的时候，显示最后一页
If iPage > rs.PageCount Then iPage = rs.PageCount
Else
iPage = 1
End If
Response.Write("当前第" & iPage & "页，共" & rs.PageCount & "页")
rs.AbsolutePage = iPage
%>
<TABLE CELLPADDING="2" BORDERCOLOR="Black" BORDER="1">
<TR STYLE="BACKGROUND-COLOR:#AAAADD;">
<TD>序号</TD><TD >题目</TD><TD>内容</TD><TD>图像</TD><TD>时间</TD><TD>修改</TD><TD>删除</TD>
</TR>
<%
For I = 0 To rs.PageSize-1
If rs.EOF OR rs.BOF Then Exit For
'设置奇数和偶数行显示不同的背景颜色
If I Mod 2 = 1 Then
Response.Write("<TR STYLE='BACKGROUND-COLOR:#FFFFCD;'>")
Else
Response.Write("<TR>")
End if
Response.Write("<TD>" & rs("newsid") & "</TD>")
Response.Write("<TD>" & rs("newstitle") & "</TD>")
Response.Write("<TD>" & rs("newscontent") & "</TD>")
Response.Write("<TD>" & rs("img") & "</TD>")
Response.Write("<TD>" & rs("time") & "</TD>")
%>
<TD><A HREF="xiugai.asp?xuhao=<%=rs("newsid")%>">修改</A></TD>
<TD><A HREF="shanchu.asp?xuhao=<%=rs("newsid")%>">删除</A></TD>
<%
Response.Write("</TR>")
rs.movenext()
Next
%>
</TABLE>
<BR>
<%'当前是第一页的时候，不显示"第一页"
If iPage <> 1 Then %>
<A HREF="guanli.asp?page=1">第一页</A>
<A HREF="guanli.asp?page=<%=iPage - 1 %>">上一页</A>
<% End If
'当前是最后一页的时候，不显示"最后页"
IF iPage <> rs.PageCount Then %>
<A HREF="guanli.asp?page=<%=iPage+1%>">下一页</A>
<A HREF="guanli.asp?page=<%=rs.pageCount%>">最后页</A>
<% End If
conn.close()
%>
2 删除界面
<HTML> <BODY>
<%
str= Request("xuhao")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("news.asp"))
set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
sql = "DELETE FROM news WHERE newsid=" & str
response.write(sql)
cmd.CommandText = sql
cmd.Execute()
Response.Redirect("guanli.asp")
%>
</BODY> </HTML>
为什么点击删除后就说
网站无法显示该页面
HTTP 500
最可能的原因是:
•该网站正在进行维护。
•该网站有程序错误。
问题已解决 是INTERNET 来宾账户的问题 有人能帮我解释下这个账户吗 展开
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("news.asp"))
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM news"
rs.Open sql, conn,1,3
rs.PageSize = 10
'第一次显示没有页码，默认显示第一页
If Request("page") <> "" Then
iPage = Cint(Request("page"))
If iPage < 1 Then iPage = 1 '页码小于1，则显示第一页
'当大于总页数的时候，显示最后一页
If iPage > rs.PageCount Then iPage = rs.PageCount
Else
iPage = 1
End If
Response.Write("当前第" & iPage & "页，共" & rs.PageCount & "页")
rs.AbsolutePage = iPage
%>
<TABLE CELLPADDING="2" BORDERCOLOR="Black" BORDER="1">
<TR STYLE="BACKGROUND-COLOR:#AAAADD;">
<TD>序号</TD><TD >题目</TD><TD>内容</TD><TD>图像</TD><TD>时间</TD><TD>修改</TD><TD>删除</TD>
</TR>
<%
For I = 0 To rs.PageSize-1
If rs.EOF OR rs.BOF Then Exit For
'设置奇数和偶数行显示不同的背景颜色
If I Mod 2 = 1 Then
Response.Write("<TR STYLE='BACKGROUND-COLOR:#FFFFCD;'>")
Else
Response.Write("<TR>")
End if
Response.Write("<TD>" & rs("newsid") & "</TD>")
Response.Write("<TD>" & rs("newstitle") & "</TD>")
Response.Write("<TD>" & rs("newscontent") & "</TD>")
Response.Write("<TD>" & rs("img") & "</TD>")
Response.Write("<TD>" & rs("time") & "</TD>")
%>
<TD><A HREF="xiugai.asp?xuhao=<%=rs("newsid")%>">修改</A></TD>
<TD><A HREF="shanchu.asp?xuhao=<%=rs("newsid")%>">删除</A></TD>
<%
Response.Write("</TR>")
rs.movenext()
Next
%>
</TABLE>
<BR>
<%'当前是第一页的时候，不显示"第一页"
If iPage <> 1 Then %>
<A HREF="guanli.asp?page=1">第一页</A>
<A HREF="guanli.asp?page=<%=iPage - 1 %>">上一页</A>
<% End If
'当前是最后一页的时候，不显示"最后页"
IF iPage <> rs.PageCount Then %>
<A HREF="guanli.asp?page=<%=iPage+1%>">下一页</A>
<A HREF="guanli.asp?page=<%=rs.pageCount%>">最后页</A>
<% End If
conn.close()
%>
2 删除界面
<HTML> <BODY>
<%
str= Request("xuhao")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("news.asp"))
set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
sql = "DELETE FROM news WHERE newsid=" & str
response.write(sql)
cmd.CommandText = sql
cmd.Execute()
Response.Redirect("guanli.asp")
%>
</BODY> </HTML>
为什么点击删除后就说
网站无法显示该页面
HTTP 500
最可能的原因是:
•该网站正在进行维护。
•该网站有程序错误。
问题已解决 是INTERNET 来宾账户的问题 有人能帮我解释下这个账户吗 展开
2个回答
展开全部
有时候你可以把 数据库文件的可读写属性都设置一下！
数据库--右键---属性---安全
数据库--右键---属性---安全
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
