%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request("t")<>"" then
lb=request("t")
end if
%>
<%
strSQL = "SELECT TOP 1 us FROM about_us_info"
SET rs = Conn.Execute(strSQL)
If rs.BOF AND rs.EOF Then
AboutUs = ""
Else
AboutUs = rs("us")
End If
Call rsClose()
%>
<%
strSQL = "SELECT TOP 1 us1 FROM about_us_info"
SET rs = Conn.Execute(strSQL)
If rs.BOF AND rs.EOF Then
AboutUs1 = ""
Else
AboutUs1 = rs("us1")
End If
Call rsClose()
%>
<%
strSQL = "SELECT TOP 1 us2 FROM about_us_info"
SET rs = Conn.Execute(strSQL)
If rs.BOF AND rs.EOF Then
AboutUs2 = ""
Else
AboutUs2 = rs("us2")
End If
Call rsClose()
%>
<%
id = Trim(Request.QueryString("id"))
If isNumeric(id) = False Then
Response.Redirect("index.asp")
Response.End()
End If
strSQL = "SELECT TOP 1 * FROM Music_Info WHERE [ID] = " & id
SET rs = Conn.Execute(strSQL)
If rs.BOF AND rs.EOF Then
Response.Redirect("index.asp")
Response.End()
Else
Title = rs("News_Title")
Come = rs("News_Come")
Counti = Int(rs("News_Count")) + 1
MemoInfo = rs("News_Memo")
AddTime = rs("AddTime")
End If
Call rsClose()
strSQL = "UPDATE Music_Info SET News_Count = News_Count + 1 WHERE [ID] = " & id
Conn.Execute(strSQL)
%>
<%strSQL = "SELECT * FROM LINK_LIST where P_TYPE=0 order by id"
SET rs = Conn.Execute(strSQL)
If Not (rs.BOF AND rs.EOF) Then
Do While Not rs.EOF
%>
"><%=rs("P_Name")%> |
<%
rs.MoveNext
Loop
End If
Call rsClose()
%>