asp 的dw生成的代码,不在看不懂,

Else , 2008/03/11 17:15 , 代码片段，演示也有 , Comments(0) , Reads(5682) , Via Original

<%
Dim news_rs__MMColParam
news_rs__MMColParam = "1"
If (Session("num") <> "") Then
news_rs__MMColParam = Session("num")
End If
%>
<%
Dim news_rs
Dim news_rs_cmd
Dim news_rs_numRows

Set news_rs_cmd = Server.CreateObject ("ADODB.Command")
news_rs_cmd.ActiveConnection = MM_conn_STRING
news_rs_cmd.CommandText = "SELECT * FROM dbo.ruby WHERE num = ? ORDER BY newsId DESC"
news_rs_cmd.Prepared = true
news_rs_cmd.Parameters.Append news_rs_cmd.CreateParameter("param1", 200, 1, 100, news_rs__MMColParam) ' adVarChar

Set news_rs = news_rs_cmd.Execute
news_rs_numRows = 0
%>

记得以前刚刚接触的时候,有点看不懂,但现在喜欢上这样的一个格式,时间上有很大上升的空间,
现在机子好一点,将会学到更多!
编程的机子,也不会是垃圾的机子