#眉標＝開發工具
#副標=ASP.NET效能調校研討
#大標=ASP、ASP.NET對決
#作者=文／李明儒
p193
＝＝＝＝＝＝＝＝＝＝＝＝＝＜box>===============
HTML的Code如下：
現在時間=
===========================
p194
==========================
<% Option Explicit %>
現在時間=<%=Now%>
====================
=====================
private void Page_Load(object sender, System.EventArgs e)
{
// Put user code to initialize the page here
Label1.Text="現在時間="+DateTime.Now.ToString("yyyy/MM/dd hh：mm：ss");
}
＝＝＝＝＝＝＝＝＝＝＜end>===========
p195
＝＝＝＝＝＝＝＝＝＝＝＜box>================
<% Option Explicit %>
| 作者ID |
姓名 |
電話 |
地址 |
<%
Dim rsX,sTemp
Set rsX=GetRS("select au_id,au_fname+' '+au_lname as au_name,phone,address from authors")
While Not rsX.EOF
sTemp=sTemp & "| " & rsX("au_id") & " | " & rsX("au_name") & " | " & rsX("phone") & " | " & rsX("address") & " |
" & vbCrLf
rsX.MoveNext
Wend
Response.Write sTemp
Function GetRS(SQL)
Const SQLCnnStr="Provider=SQLOLEDB;Data Source=127.0.0.1;User ID=demo;Password=benchmark;Initial Catalog=pubs"
Dim cnX,rsX
Set cnX=Server.CreateObject("ADODB.Connection")
Set rsX=Server.CreateObject("ADODB.Recordset")
rsX.CursorLocation=ADODB.adUseClient
cnX.Open SQLCnnStr
rsX.Open SQL, cnX, ADODB.adOpenForwardOnly, ADODB.adLockBatchOptimistic
Set rsX.ActiveConnection=Nothing
cnX.Close
Set cnX=Nothing
Set GetRS=rsX
End Function
%>
===========================
p196
=====================
private void Page_Load(object sender, System.EventArgs e)
{
// Put user code to initialize the page here
SqlConnection myConnection = new SqlConnection(SQLCnnStr);
SqlCommand myCommand = new SqlCommand("select au_id,au_fname+' '+au_lname as au_name,phone,address from authors", myConnection);
SqlDataReader myReader;
myCommand.CommandType = CommandType.Text;
myConnection.Open();
myReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection);
DataGrid1.DataSource=myReader;
DataGrid1.DataBind();
}
======================