📄 ecardget.asp
字号:
<!-- #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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -