新手入门，请高手指点下，越简单越好，在线急等！（结贴） - 编程论坛

#2

jinyou88992010-04-18 20:32

错误类型：500。您指定的网页无法访问。

#3

jinyou88992010-04-18 20:52

帮我写个这个也行：有个数据库AA（mdb），里面有1个表tel，该表有3个字段：id,name,tel。asp第一页显示这个表的所有记录，然后点击每个记录，显示name和tel。多谢高手了！！

#4

zzy_4202010-04-18 22:08

<% @language="vbscript" %>

<%
id=request.querystring("id")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/zz6500.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

sql= "select * from shouji1 where id='"&request("id")&"' "
RS.open sql,Conn,1,1
%>
<html>
<head>
<title><%=rs("JGMC")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
   <% do while not rs.eof   %>
          <tr>
             <td align="center"> <font color="#FF0000"><%=rs("JGMC")%></font></td><br><br>
          </tr>

          <tr>
            <td>
                企业负责人：<%=rs("FDDBR")%><br>
                联系电话：<%=rs("DHHM")%><br>
                企业类型：<%=rs("JJHY")%>[<%=rs("JJLX")%>]<br>
                企业经营范围：[<%=rs("JYFW")%>]<br>
                企业地址：<%=rs("JGDZ")%><br>
                邮编：<%=rs("YZBM")%><br>
            </td>
          </tr>
<%
      rs.movenext
      loop
%>
</body>
</html>

<%
     rs.close
      set rs=nothing
      conn.close
      set conn=nothing
%>

[ 本帖最后由 zzy_420 于 2010-4-18 22:12 编辑 ]

#5

zzy_4202010-04-18 22:49

.
<%
.
.数据库连接
.
sql="select * from tel"
rs.open sql ,conn,1,1
%>

<% myid=request.querystring("id")%>
<body>
<% if myid="" then%>
<table>
<% for i=0 to rs.recordcount-1 step 1 %>
<tr>
<td><a href="本页.asp?id=<%=rs("id")%>"><%=rs("id")%><%=rs("name")%><%=rs("tel")%></a></td>
</tr>
<%rs.movenext%>
<%next%>
'关闭对象
</table>

<%
else
sql="select * from tel where id='"&myid&"'"
rs.open sql ,conn,1,1
%>
<table>
<tr>
<td>><%=rs("name")%><%=rs("tel")%></td>
</tr>
</table>
关闭对象
<%end if%>

请楼主自己完善不全的部分，这里给出了主体部分。希望能帮到你。

#6

jinyou88992010-04-19 10:50

还在摸索，哎，我太笨了。谢谢楼上的，不明白的地方还要请教你。

#7

gupiao1752010-04-19 11:13

zzy_420已经说得很详细了，其他就看你怎么领悟了，不要在意一时的成败，有的时候成功的代码需要几十次的测试，甚至上百次，上千次，学东西没有笨和不本，只有用心不用心，后期发展才看个人天赋！
如果你是个用心的人，一定可以明白的！祝你成功！

#8

jinyou88992010-04-19 11:23

终于整好了，呵呵。
http://jinyou8899.free.

#9

jinyou88992010-04-19 12:19

回复 7楼 gupiao175

呵呵，多谢鼓励。