|
|
兰习刚 |
|
注册会员
|
UID: 115
来自:
精华: 0
积分: 157
帖子: 125
注册: 2007-9-12 13:42:35
状态:
离线
威望: 32.04
金钱: 3.65 元
|
|
|
|
|
| 学会这一句程序就可以建网站了[不包括后台] |
|
做网站就是反复的CALL 嘎嘎
<%
Dim Rs,Sql,imgHeight
'创建记录集
Sub CreateRs(Sql)
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open Sql,Conn,1,1
End Sub
'关闭记录集
Sub CloseRs()
Rs.Close:Set Rs = Nothing
End Sub
'文本链接 textLen为截取的长度
Sub TextLink(textLen)
Response.Write("<a href='newsnr.asp?bid="&Rs("anclassid")&"&sid="&Rs("nclassid")&"&id="&Rs("id")&"' target='_blank'>"&Left(Rs("Title"),textLen)&"</a>")
End Sub
'图片链接
'此处height没法传
Sub ImgLink(Width,Height1)
imgHeight = Height1
Response.Write "<a href='newsnr.asp?bid="&Rs("anclassid")&"&sid="&Rs("nclassid")&"&id="&Rs("id")&"' target='_blank'><img src='uploadfiles/"&Rs("HotPic")&"' width="&Width&" height="&imgHeight&" border=0 /></a>"
End Sub
Sql = "Select Top 3 * From Article Where nclassid=41 And isT=1 And isP=1 Order By UpDateTime Desc"
'打开记录集
Call CreateRs(Sql)
If Not Rs.Eof Then
i = 1
Do While Not Rs.Eof And i<=3
%>
<!--嵌入到相应HTML,输出记录集-->
<%
Call TextLink(32)
%>
<%
Call ImgLink(15,36)
%>
<%
Rs.MoveNext
i=i+1
Loop
End If
'关闭记录集
Call CloseRs()
%>
之后请反复的call
|
 lanxigang 最后编辑于 2008-05-30 10:35:40
|
|
