📄 dj_word.asp

📁 安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

💻 ASP

字号:

<!--#include file="mdb.asp"-->
<!--#Include File="Check_hx.asp"-->
<%
'****************************************************
' Hxcms Ver7.5       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
Dim WordID,MusicName,Singer,MusicWord_rs,MusicWord
WordID=request.QueryString("id")
MusicName=request.QueryString("musicname")
Singer=request.QueryString("singer")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>歌词 <%Response.Write (Singer)%>  - 《 <%Response.Write (MusicName)%> 》</title>
<style>
body,td{font-size:12px}
.bk {color: #000000; border:1px #000000 solid;}
.Tips_bo {
	FONT-FAMILY: "Arial", "宋体";
	BORDER: 0px #000000 solid; 
	FONT-SIZE: 12px; 
	COLOR: #f78d00;  
	text-decoration: none; 
	POSITION: relative;
	HEIGHT: 19;
}
</style>
</head>
<body bgColor="#FFFFFF" text="#000000" >
<center>
<%
If WordID="" or not IsNumeric(WordID) Then
	Response.Write ("<font color=#ff0000>很抱歉!这首歌曲还没有歌词.</font>")
	Response.Write ("<br><br><a href='javascript:window.close();'><font color=#000000>关闭窗口</font></a>")
	Response.End
End If
Set MusicWord_rs=conn.execute("select dj_Word from [dj] where dj_id="&cint(WordID))
	If MusicWord_rs.eof Then
		Response.Write ("<font color=#ff0000>很抱歉!这首歌曲还没有歌词或已经删除.</font>")
		Response.Write ("<br><br><a href='javascript:window.close();'><font color=#000000>关闭窗口</font></a>")
		Response.End
	End If
	MusicWord=MusicWord_rs(0)
MusicWord_rs.close
Set MusicWord_rs=NOTHING
conn.close
Set conn=NOTHING
%>
<table width="290" border="0" bgcolor="#FFFFFF">
    <tr> 
      <td height="21" width="279"> <font color="#000000">
        <%Response.Write (Singer)%>
        - 《 
        <%Response.Write (MusicName)%>
        》 </font>
        <hr align="center" color="#000000" SIZE="1"></td>
    </tr>
    <tr> 
      <td width="279" height="180" valign="top">
        <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td style="line-height: 160%"><font color="#000000"> 
              <%Response.Write (Replace(MusicWord,chr(13),"<br>"))%>
              </font></td>
          </tr>
          <tr>
            <td height="40" align="center"><a href='javascript:window.close();'><font color=#000000>关闭窗口</font></a></td>
          </tr>
        </table>
      </td>
    </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -