📄 getcard.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题

💻 ASP

字号:


<%
psw=request("id")
   dim conn
   dim connstr
   'on error resume next
   connstr="DBQ="+server.mappath("tu.asp")+";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="css/style.css">

<BGSOUND SRC=<%=rs("midifile")%> LOOP=-1>

</head>


<body bgcolor=<%=rs("bgcolor")%>>
<table border="0"  width="595"  background="<%=rs("background")%>" align="center" style="border-style: solid; border-width: 2" height="246">
  <tr><td width="32" rowspan="2" height="242">
  <center>
  <table align="left"><tr></tr></table>
  </center></td><td width="271" rowspan="2" height="242">
  <br>
  <br>
  <%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">
</OBJECT>
  <%else%>
  <img src=<%=picture%> ><br>
  <%end if%>
  <br>
  <center>
  <%=rs("titletext")%>
  </center><br>
  <center>
  <br>
  </center>

    </td><td width="172" height="64">
  <img border="0" src="images/long2000.gif" width="74" height="98" align="right"></td></tr>
  <tr>
    <td width="172" height="174">
  收件人：<%=rs("toname")%><br>
  <br>
  <font style='FONT-SIZE: 10.5pt'><%=rs("message")%></font><br>
  <br>
  发件人：<B><%=rs("myname")%></b>
    </td>
  </tr>
</table>
<p align="center"><a href="http://www.love2net.com/love/card/default.asp">回赠一个贺卡给<%=rs("myname")%></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p>

</body>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -