yrics.asp 维六酷博客管理系统 1.1源码程序 - ASP源码程序

www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > lyrics.asp

    <!-- #include file="conn.asp" -->
<!--#include file="include.asp"-->
<!-- #include file="inc/function.asp" -->
<%
id=RequestQueryNum("id")
Set rs=conn.Execute("Select * From multimedia Where id="& id &"")
If rs.bof And rs.eof Then
	'Response.Write "param error!"
	Response.End
End If
If rs("lyrics")<>"" then
	lyrics=Replace(rs("lyrics"),Chr(32),"&nbsp")
End If
	%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<link href="css/css.css" rel="stylesheet" type="text/css" />
<style type="text/css">

body {
	background-color: #000000;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	SCROLLBAR-FACE-COLOR:#000000;
}
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #FFFFFF;
}
.STYLE2 {color: #CCCCCC;}
.STYLE3 {font-family: "宋体"}
.STYLE4 {font-size: 10px}
.white{color:#FFFFFF;}
-->
</style>
</HEAD>
<BODY>
<%
If rs("lyrics")<>"" Then
	Response.Write Replace(lyrics,Chr(10),"<br>")
End If	
%>
</BODY>
</HTML>