源代码如下:
<!--#include file="stconn.asp"-->
<%
articleid=request.querystring("articleid")
sql="select learning.*,gc.*,basic.* from learning,gc,basic where learning.title=gc.url and learning.articleid="&articleid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
Response.Write "<script language=javascript>alert('没有此歌,或输入的歌曲编号有误!');javascript:history.go(-1);</script>"
response.end
else
title=rs("learning.title")
content=rs("learning.content")
gcinfo=rs("gcinfo")
hits=rs("hits")
session("url")=rs("learning.title")
session("gm")=left(rs("learning.content"),13)
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>