asp问题 在线急等

来源:百度知道 编辑:UC知道 时间:2024/05/05 10:08:00
<!--#include file="adovbs.inc"-->
<%
dim conn
dim connstr
dim db
dim sqls
db="file/mydb.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
response.write "<table>"
conn.Open connstr
Set conn = Server.CreateObject("ADODB.recordset")
response.write "数据库连接成功"
<% sqls="select * from article where Nclassid=1 order by dateandtime desc"
set rs=conn.Execute(sqls,recordsAffected,adcmdtext)
for i=0 to 5 %>

<tr>
<td><a href="article/list.asp?id=<%=rs("articleid")%>"><%=rs

("title")%></a>(<font color="#FF0000"><%=rs("dateandtime")%></font>)<img src="image/n

<% 符号没有成对匹配
去掉这一行的<%符号 或者在

response.write "数据库连接成功"

这一行后面加上 %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title></title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name=ProgId content=VisualStudio.HTML>
<meta name=Originator content="Microsoft Visual Studio .NET 7.1">
</head>
<body>

<%
dim conn
dim connstr
dim db
dim sqls

db="file/mydb.mdb"

Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
response.write "<table>"
conn.Open connstr
Set conn = Server.CreateObject("ADODB.recordset")
response.write "数据库连接