UC知道求救!怎么修改别人的网站!
来源：百度知道 编辑：UC知道 时间：2024/06/17 21:05:47
<TABLE align="center" cellSpacing=0 cellPadding=0 width=190 border=0>
<TBODY>
<TR>
<TD width="989" vAlign=top>
<table cellspacing=1 cellpadding=0 width="100%" border=0>
<tbody>
<%
rs.open "select categoryid,category from category where hide=0 and ParentID = 0 order by categoryorder",conn,1,1
if rs.eof and rs.bof then
rs.close
response.Write "<tr><td align=center>还没有商品分类</td></tr>"
else
do while not rs.eof %>
<tr>
<td height=20 colspan="2" valign=center><a href=b2b_cplist.asp?catid=<% = rs("categoryid") %>><b><font color=#ff6600>
<% = rs("category") %>
</font></b></a></td>
你表达的确实有点问题，似懂非懂，如果你在发问贴时对问题的表达及提供的数据不全的话，我们有时也爱莫能助，这不仅浪费了你的时间也浪费大家的时间。
哎，这就是一个非常常用的ASP脚本，你如果不会就在网上DOWN一些简单的ASP留言本程序，有些里边是有注释的，你是指无法链接数据库还是什么？ 我看到的代码里有数据库[表] rs.open "select categoryid,category from category where hide=0 and ParentID = 0 order by categoryorder",conn,1,1
你是否想问数据库链接不上？如果是请参看下边...
[index.asp]
<!--#include file="conn.asp"-->
[conn.asp]
<%
dim db
const DatabaseType="ACCESS"
'注意，这就是你的数据库文件，要绝对路径
db="data/##database$$.mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "资料库连接出错，请检查Conn.asp档中的资料库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsOb