Question

ASP 网页代码 大侠们帮忙注释一下，越详细越好。好的话另加50分

<!--#include file="Inc/SysProduct.asp" -->
<%function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<!-- #include file="Head.asp" -->
<% call ShowSmallClass_Tree() %>
<%Set rsmenu = Server.CreateObject("ADODB.Recordset")
sql="select Content from culture where Title='left'"
rsmenu.open sql,conn,1,3%>
<%=rsmenu("Content")%>
<%rsmenu.close
set rsmenu=nothing
%>
<td align="middle" width="231" height="141"><img height="118" src="<%=WebmasterName%>" width="214" /></td>
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus where Title='企业简介'"
rs.open sql,conn,1,3%>
<%=cutstr(rs("content"),260)%>
<%rs.close
rs=nothing%>
<%set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & Product_count & " * from Product where Passed=True and Elite=true order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
<tr align="center">
<%If rs_Product.eof and rs_Product.bof then
response.write "<td><p align='center'><font color='#ff0000'>还没任何产品</font></p></td>"
else
row_count=1
Do While Not rs_Product.EOF%>
<img src=<%=rs_Product("DefaultPicUrl")%> width="170" height="140" border=0 >
<% if row_count mod 8 =0 then%>
</tr><tr>
<%end if%>
<%
rs_Product.MoveNext
row_count=row_count+1
Loop
end if
rs_Product.close
%>
这是部分代码。希望大虾们能看的懂！谢谢

Answer 1

<!--#include file="Inc/SysProduct.asp" -->
<%
'定义cutstr为字符串截取函数，tempstr为待截取字符串，tempwid为截取长度
'如果字符串超出截取长度，则截取规定长度后，后面补上“…”显示
else
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
cutstr=tempstr
end if
end function
%>
<!-- #include file="Head.asp" -->
<% call ShowSmallClass_Tree() '估计是调用分类显示函数 %>
<%Set rsmenu = Server.CreateObject("ADODB.Recordset")
'从数据库culture表中打开Title字段为"left"的记录，显示其"Content"字段
sql="select Content from culture where Title='left'"
rsmenu.open sql,conn,1,3%>
<%=rsmenu("Content")%>
<%rsmenu.close
set rsmenu=nothing
%>
<td align="middle" width="231" height="141"><img height="118" src="<%=WebmasterName%>" width="214" /></td>
<%Set rs = Server.CreateObject("ADODB.Recordset")
'从数据库Aboutus表中打开Title字段为"企业简介"的记录，显示其"Content"字段
sql="select Content from Aboutus where Title='企业简介'"
rs.open sql,conn,1,3%>
<%=cutstr(rs("content"),260) '显示时仅显示260字%>
<%rs.close
rs=nothing%>
<%set rs_Product=server.createobject("adodb.recordset")
'从数据库Product（产品）表中打开已通过审查（Passed=True）且标记为精华（Elite=true）的N条记录（N由Product_count决定）记录
sqltext="select top " & Product_count & " * from Product where Passed=True and Elite=true order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
<tr align="center">
<%If rs_Product.eof and rs_Product.bof then '如果没有记录则显示“还没任何产品”
response.write "<td><p align='center'><font color='#ff0000'>还没任何产品</font></p></td>"
else
row_count=1
'循环显示N条记录的照片
Do While Not rs_Product.EOF%>
<img src=<%=rs_Product("DefaultPicUrl")%> width="170" height="140" border=0 >
<%'每8条记录的照片排一行
if row_count mod 8 =0 then%>
</tr><tr>
<%end if%>
<%
rs_Product.MoveNext
row_count=row_count+1
Loop
end if
rs_Product.close
%>

追问

本人很菜，请问此段如何解释？又问rs是什么啊？谢谢

追答

是显示记录“Content”字段，和效果一样；rsmunu.close是关闭打开的数据记录，set rsmenu=nothing是清空rsmenu变量。在读写完数据库后一定要close，清空变量是为了优化程序运行占用资源情况。

追问

谢谢，rs 呢？

追答

这段代码里面，rs,rsmenu,rs_Product都是数据记录变量，是等效的。在close之后，可以重新使用。
比如rs.open,sql,1,1
rs.close
之后，可以再次rs.open,sql2,1,1
之所以用了rs,rsmenu,rs_Product三个变量，是为了便于区分，效果一样

Answer 2

这都是些基本的条件，循环以及SQL操作的代码，没什么好注释的啊，你不懂的话注释也不懂，建立你在ASP源码中心的文档中心搜索一些基础的ASP教程。