大家能帮我把这段话从asp翻译成asp.net(C#)吗？谢谢，本人只会后者 谢谢先

[yuanyong613]

<%
Sub TimeDelaySeconds(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
TimeDelaySeconds(0)
%>
<%
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.Charset = "GB2312"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database.mdb")
conn.Open connstr
%>
<%
set rs = server.createobject("adodb.recordset")
Sqlstr = "select * from UserData order by id"
rs.open Sqlstr,conn,1,1
rs.PageSize = 3
AllPage = rs.PageCount
Page = request.QueryString ("page")
'***********************判断
if cint(page) =< 1 then
Page = 1
elseif cint(page) >= rs.PageCount then
Page = rs.PageCount
else
intpage = cint(page)
end if
'***************************
rs.AbsolutePage=page
Response.write AllPage&","&rs.AbsolutePage&","
for i = 1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
Response.write rs(0)&","&rs(1)&","&rs(2)&","&rs(3)&","
rs.movenext
next
rs.close
Set rs = nothing
%>

该文章转载自脚本之家：http://www.jb51.net/html/200611/5/4896.htm

[zhushouqqq]

沙法,,帮顶

[yuanyong613]

谢谢zhushouqqq(小强)
我魔兽，你就是那个小强？呵呵，肯定比他帅

[chy3503319]

帮忙顶

[yuanyong613]

呵呵，俺也东北人，谢谢车神

[viena]

会，就是不帮你转
你要是哪儿看不懂可以帮你解释~

[yuanyong613]

Sub TimeDelaySeconds(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
TimeDelaySeconds(0)
其实他的功能我也能勉强看明白，但是就是自己慢慢做的话估计今天下午就做这个时间就没有了。呵呵。
所以想这个不是很厚道的办法，多多谅解。
viena(维也纳nn-收回潜望镜，下潜50米) 呵呵

[hxlyjy]

呵呵!
好象有转换的工具 !
上网找找看!
vb.net转换成c#的就有!
asp的没试过!不过楼主可以找找看!

[yuanyong613]

Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database.mdb")
conn.Open connstr
%>
<%
set rs = server.createobject("adodb.recordset")
Sqlstr = "select * from UserData order by id"
rs.open Sqlstr,conn,1,1
rs.PageSize = 3
AllPage = rs.PageCount
Page = request.QueryString ("page")

同志们帮我找找看 他这个rs.PageSize 我改成asp.net我该怎么改？
或者把这个帮我改成asp.net中对应的数据库连接语句好不？
谢谢