機車，攝影，網頁程式分享

ASP.NET從資料庫中拿出圖片連結用JAVA做圖片自動切換

<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>

<%
Dim im_add1, im_url1, im_name1, im_add2, im_add3, im_url2, im_url3, im_name3, im_name2 As String
Dim connString As String = SqlDataSource1.ConnectionString
Dim queryString As String = "SELECT Top (3) im_add, im_url,im_name FROM img WHERE (im_time >= '" + DateTime.Now().Year.ToString + "-"
queryString = queryString + DateTime.Now().Month.ToString + "-" + DateTime.Now().Day.ToString + "') ORDER BY NEWID()"
Dim reader As SqlDataReader
Dim sqlConn As New SqlConnection(connString)
Dim sqlCmd As New SqlCommand
Dim sqlPara As New SqlParameter
sqlCmd.CommandText = queryString
sqlCmd.Connection = sqlConn
sqlConn.Open()

reader = sqlCmd.ExecuteReader()
Dim i As Integer = 0
If reader.Read() Then
i = i + 1
im_add1 = reader(0)
im_url1 = reader(1)
im_name1 = reader(2)
im_add2 = reader(0)
im_url2 = reader(1)
im_name2 = reader(2)
im_add3 = reader(0)
im_url3 = reader(1)
im_name3 = reader(2)
End If
If reader.Read() Then
i = i + 1
im_add2 = reader(0)
im_url2 = reader(1)
im_name2 = reader(2)
im_add3 = reader(0)
im_url3 = reader(1)
im_name3 = reader(2)
End If
If reader.Read() Then
i = i + 1
im_add3 = reader(0)
im_url3 = reader(1)
im_name3 = reader(2)
End If
reader.Close()
sqlConn.Close()
%>