一段关于从数据库读取友情链接,并在跳转菜单表示得代码。但老是超时,不知什么原因代码如下刚开始学,请大家帮忙看看
一段关于从数据库读取友情链接,并在跳转菜单表示得代码。但老是超时,不知什么原因
代码如下
刚开学,请大家帮忙。。<!---- --->发帖加的
<!--
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<head>
<title>友情链接</title>
</head>
<body><form name="form1">
<select name="cy" onChange="MM_jumpMenu('parent',this,0)">
<option >常用网址</option>
<% dim rsy,weburl,webname
set rsy=server.CreateObject("ADODB.RecordSet")
rsy.open "select * from link where linktype=0 order by id desc"
while not rsy.eof
weburl=rsy("weburl")
webname=rsy("webname")
Response.Write "<option value="& weburl &"> "&webname&" </option>"
rsy.movenext
wend%>
</select>
<% rsy.close
set rsy=nothing%>
</form>
</body>
</html>
-->
[此贴子已经被作者于2007-8-2 13:48:22编辑过]