帮我看一下这个ASP语法有什么错.

来源:百度知道 编辑:UC知道 时间:2024/05/22 07:31:57
' (name,"main")
Function GetRelateNews(relateKeys,tablename)
dim tempsqlStr,Href
set rs=server.CreateObject("adodb.recordset")
tempsqlStr="select top 8 zhuti,link from "&tablename&" where leixing like '%"&relateKeys&"%' order by id desc"
rs.open tempsqlStr,cn,1,1
if not rs.eof then
GetRelateNews=GetRelateNews&"<table width="&""""&"100%"&""""&" border="&""""&"0"&""""&" align="&""""&"center"&""""&" cellpadding="&""""&"0"&""""&" cellspacing="&""""&"0"&""""&">"&chr(13)
do while not rs.eof
Href="../../rs(""link"")"

Href="../../rs(""link"")"

是不是应该是href="../../" & rs("link")

<script language="vbscript">
Function GetRelateNews(relateKeys,tablename)
dim tempsqlStr,Href
set rs=server.CreateObject("adodb.recordset")
tempsqlStr="select top 8 zhuti,link from "&tablename&" where leixing like '%"&relateKeys&"%' order by id desc"
rs.open tempsqlStr,cn,1,1
if not rs.eof then
GetRelateNews=GetRelateNews&"<table width="&""""&"100%"&""""&" border="&""""&"0"&""""&" align="&""""&"center"&""""&" cellpadding="&""""&"0"&""""&" cellspacing="&""""&"0"&""&quo