ecardget.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 53 行

ASP

53 行

<!-- #include virtual="/kjasp/func/DB.fun" -->

<%
   ID = Request("ID")
   If ID = Empty Then
      Response.Redirect "Ecard.htm"
   End If
%>

<HTML><BODY background="../B01.jpg" bgcolor="#FFFFFF">
<%
   SQL = "Select * From Ecard Where EcardID=" & ID
   Set rs = GetMdbRecordset( "Ecard.mdb", SQL )
   
   If rs Is Nothing Or rs.EOF Then 
      ShowMessage "此一卡片已被清除!"
      Response.End
   End If

   ShowCard
%>
</BODY>
</HTML>

<% 
Sub ShowMessage( msg ) 
%>
<CENTER>
<H2><%=msg%><HR></H2>
<A HREF=Ecard.htm>进入电子贺卡网页</A>
</CENTER>
<% 
End Sub 
%>

<% 
Sub ShowCard
%>

<CENTER>
<IMG SRC="card<%=rs("Card")%>.gif">
<TABLE BgColor=Yellow><TR><TD>
<%=Replace(rs("Body"), vbCrLf, "<BR>")%>
</TD></TR></TABLE>
from<%=rs("FromName")%>(<%=rs("From")%>)

<HR>
<A HREF=Ecard.htm>进入电子贺卡网页</A>
</CENTER>

<% 
End Sub 
%>

ecardget.asp - 源码说明

本页面展示了「Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明」中的 ecardget.asp 源码文件，采用 ASP 编程语言编写，共 53 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Active相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?