怎么才能让这个asp文件在浏览器中运行出来 100
程序如下,请高手告诉我一下,要运行这个需要什么,怎么弄啊,我是菜鸟,程序抄上来运行不出来啊,高手帮忙!我用的是dreamweaver制作的。一个bbs论坛的首页<!--#...
程序如下,请高手告诉我一下,要运行这个需要什么,怎么弄啊,我是菜鸟,程序抄上来运行不出来啊,高手帮忙!我用的是dreamweaver制作的。一个bbs论坛的首页
<!--#include file ="conn.asp"-->
<html>
<head>
<title>BBS论坛</title>
<link href ="Inc/mainCss.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--功能一:用户登录/显示欢迎信息-->
<% if session("userName")=""then %>
<!--如果没有登录则显示登陆菜单-->
<table width="98%" boder="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
<!--注意表单的Action后面带的URL参数-->
<form name="form1" method="post" action="reg_logAction.asp?action=log">
<tr>
<td bgcolor="#dddddd">用户登录:
用户名:
<input name="userName" type="text" id="userName" size="10">
密码:
<input name="passWord" type="password" id="password" size="10">
<input type="submit" name="Submit" value="登录">
<a href="regForm.asp">注册新会员</a>
</td>
</tr>
</form>
</table>
<%else%>
<!--如果已经登录则显示欢迎信息-->
<table width="98%" boder="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
<tr>
<td bgcolor="#dddddd">欢迎您:
<% =session("userName")%>
今天是:<%=date()%>
<!--注意连接后面带的URL参数-->
<a href="reg_logAction.asp?action=exit">退出登录</a></td>
</tr>
</table>
<%end if%>
<!--功能二:显示区与板块相关信息-->
<%
dim rs
set rs=Server.CreateObject(" ADOBD.Recordset")
'注意SQL语句中的条件Block=0,记录集rs中是区的信息
rs.Open"Select * from Block where Block=0",conn
'显示所有的区
do while not rs.eof
%>
<br>
<!--本表格中显示区名与简介-->
<table width="98%" border="0" cellpadding="5" cellspacing="1" bgcolor="#666666 ">
<tr>
<td class="td1">
<% =rs("Id")&"??"&rs("name")&"专区??简介:"&rs("Intro")%>
</td>
</tr>
</table>
<%
dim rs2
set rs2=Server.CreateObject("ADODB.Recordset")
'注意SQL语句中的条件Block="&rs("id"),记录集rs2中是本区的所有版块信息
rs2.Open"Select * from Block where Block="&rs("id"),conn
'显示本区中的所有版块
do while not rs2.eof
%>
<!--本表格中显示区中的板块及相关信息-->
<table width="98%" border="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#FFFFFF ">
<td width="30" rowspan="2">
<% =rs2("Id")%>
</td>
<td bgcolor="#FFFFFF">
<% ="『<a href='block.asp?block="&rs2("Id")&"'>"&rs2("name")&"</a>』"%>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
简介:<% =rs2("Intro")%>
</td>
</tr>
</table>
<%
rs2.movenext
loop
rs.movenext
loop
conn.close
set conn=nothing
%>
</body>
</html>
里面错误的地方请帮忙我改正好,谢谢 。IIS装好了,有的asp就可以运行,但是这个就是有错误,运行不出来,我不知道怎么回事 展开
<!--#include file ="conn.asp"-->
<html>
<head>
<title>BBS论坛</title>
<link href ="Inc/mainCss.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--功能一:用户登录/显示欢迎信息-->
<% if session("userName")=""then %>
<!--如果没有登录则显示登陆菜单-->
<table width="98%" boder="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
<!--注意表单的Action后面带的URL参数-->
<form name="form1" method="post" action="reg_logAction.asp?action=log">
<tr>
<td bgcolor="#dddddd">用户登录:
用户名:
<input name="userName" type="text" id="userName" size="10">
密码:
<input name="passWord" type="password" id="password" size="10">
<input type="submit" name="Submit" value="登录">
<a href="regForm.asp">注册新会员</a>
</td>
</tr>
</form>
</table>
<%else%>
<!--如果已经登录则显示欢迎信息-->
<table width="98%" boder="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
<tr>
<td bgcolor="#dddddd">欢迎您:
<% =session("userName")%>
今天是:<%=date()%>
<!--注意连接后面带的URL参数-->
<a href="reg_logAction.asp?action=exit">退出登录</a></td>
</tr>
</table>
<%end if%>
<!--功能二:显示区与板块相关信息-->
<%
dim rs
set rs=Server.CreateObject(" ADOBD.Recordset")
'注意SQL语句中的条件Block=0,记录集rs中是区的信息
rs.Open"Select * from Block where Block=0",conn
'显示所有的区
do while not rs.eof
%>
<br>
<!--本表格中显示区名与简介-->
<table width="98%" border="0" cellpadding="5" cellspacing="1" bgcolor="#666666 ">
<tr>
<td class="td1">
<% =rs("Id")&"??"&rs("name")&"专区??简介:"&rs("Intro")%>
</td>
</tr>
</table>
<%
dim rs2
set rs2=Server.CreateObject("ADODB.Recordset")
'注意SQL语句中的条件Block="&rs("id"),记录集rs2中是本区的所有版块信息
rs2.Open"Select * from Block where Block="&rs("id"),conn
'显示本区中的所有版块
do while not rs2.eof
%>
<!--本表格中显示区中的板块及相关信息-->
<table width="98%" border="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#FFFFFF ">
<td width="30" rowspan="2">
<% =rs2("Id")%>
</td>
<td bgcolor="#FFFFFF">
<% ="『<a href='block.asp?block="&rs2("Id")&"'>"&rs2("name")&"</a>』"%>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
简介:<% =rs2("Intro")%>
</td>
</tr>
</table>
<%
rs2.movenext
loop
rs.movenext
loop
conn.close
set conn=nothing
%>
</body>
</html>
里面错误的地方请帮忙我改正好,谢谢 。IIS装好了,有的asp就可以运行,但是这个就是有错误,运行不出来,我不知道怎么回事 展开
4个回答
展开全部
1 建议将以下语句:
dim rs2
set rs2=Server.CreateObject("ADODB.Recordset")
移到
dim rs
set rs=Server.CreateObject(" ADOBD.Recordset")
的下边并整理下,即:
dim rs
dim rs2
set rs=Server.CreateObject(" ADOBD.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
2 在以下语句之间插入一条语句 rs2.close,即将:
loop
rs.movenext
变成:
loop
rs2.close
rs.movenext
3 将以下语句:
loop
conn.close
改为:
loop
rs.close
conn.close
set rs=nothing
set rs2=nothing
set conn=nothing
dim rs2
set rs2=Server.CreateObject("ADODB.Recordset")
移到
dim rs
set rs=Server.CreateObject(" ADOBD.Recordset")
的下边并整理下,即:
dim rs
dim rs2
set rs=Server.CreateObject(" ADOBD.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
2 在以下语句之间插入一条语句 rs2.close,即将:
loop
rs.movenext
变成:
loop
rs2.close
rs.movenext
3 将以下语句:
loop
conn.close
改为:
loop
rs.close
conn.close
set rs=nothing
set rs2=nothing
set conn=nothing
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
兄弟你真行,你的程序我一调试机子就卡
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你是怎么运行部了了?、是没有装IIS还是???或者你直接下载个asp服务器就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
怎么叫改好呢? 你的程序没有完整啊,不可判断。。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询