|
|
| |
|
 |
| •下列產品即將於09月29日發行 |
|
音樂類型 |
藝人/專輯 |
|
|
|
<%
strSql = "select * from 產品目錄 where datediff(day,發行日期,'2005/9/29') <14 ORDER BY seqno DESC"
strSql2= "select seqno from 產品目錄 where datediff(day,發行日期,'2005/9/29') <14 ORDER BY seqno DESC"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "dsn=magnum;uid=jim;pwd=6318"
Set conn2= Server.CreateObject("ADODB.Connection")
conn2.Open "dsn=magnum;uid=jim;pwd=6318"
'Response.Write strSql
set rs=conn.Execute(strSql)
set rs2=conn2.Execute(strSql2)
Function Adjust_dapi(adj_str)
'轉換留言資料中的Carriage Return[chr(13)]及
'Line Feed字元[chr(10)]為空字串與空白
Dim final_str, i
'
adj_str = Trim(adj_str)
final_str = ""
If Len(adj_str) > 0 Then
For i = 1 To Len(adj_str)
'每次取一個字元出來
Select Case Mid(adj_str, i, 1)
Case Chr(13): '若為Carriage Return
final_str = final_str & "
"
Case Chr(10): '若為Line Feed
final_str = final_str & " "
Case Else: '若為其他字元
final_str = final_str & Mid(adj_str, i, 1)
End Select
Next
End If
Adjust_dapi = final_str
End Function
do while not rs.eof
%>
<%Response.Write rs("音樂類型")%>
|
|
|
|
|
<%
rs.movenext
rs2.movenext
loop
rs.Close
rs2.close
conn.Close
conn2.Close
set rs=nothing
set conn=nothing
set rs2=nothing
set conn2=nothing
%>
|
|
|
|
|
