📄 getcard.asp
字号:
<%
psw=request("id")
dim conn
dim connstr
'on error resume next
connstr="DBQ="+server.mappath("t1_music_2004.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql = "select * from data where pass='"&psw&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
picture=rs("picture")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>收听歌曲</title>
<link rel="stylesheet" href="style.css">
<BGSOUND LOOP=-1>
</head>
<body bgcolor=#9E9E9E>
<table border="0" align="center" cellpadding="10" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="400" height="242" bgcolor="#9AA46A">
<%if right( trim(picture),3 )="swf" then%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
id=Movie1 width=400 height=300 vspace="0" hspace="0" border="0" align="middle">
<param name=movie value=<%=picture%>>
<param name=quality value=high>
<param name=bgcolor value=#FFFFFF>
<embed src=<%=picture%> quality="high" bgcolor="#FFFFFF" type="application/x-shockwave-flash">
</embed></object>
<%else%>
<object id=video1 classid=" clasid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"
width=400 height=300 align="middle">
<param name="_ExtentX" value="7938">
<param name="_ExtentY" value="2646">
<param name="AUTOSTART" value="1">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
<param name="CONTROLS" value="ControlPanel,StatusPanel">
<param name="SetWantErrors" value="true">
<param name=movie value=<%=picture%>>
<embed
src=<%=picture%>
type="audio/x-pn-realaudio-plugin" console="chip1"
controls="imagewindow" width=400 height=300 autostart=true align="middle">
</embed></object><br>
<%end if%>
<b></b> <b><%=rs("toname")%>：</b>您好，这是<%=rs("myname")%>送给你的一首歌，愿你喜欢。<br>
<b>＝＝ 情感寄语 ＝＝</b> <font color="#CCCCCC" style='FONT-SIZE: 9pt'><br>
</font><font style='FONT-SIZE: 9pt'><%=rs("message")%> <br>
</font></td>
</tr>
</table>
<p align="center"><a href=".">我也要回送一首歌给<%=rs("myname")%></a></p>
</body>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -