⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 recommend_joke.asp

📁 一个网上flash网站源码
💻 ASP
字号:
<%MDBpath="admin/"%>
<%
user=Request.cookies("JyDownUserName")
if user<>"" then
  user=replace(user," ","+++ close")
else
  response.write("<li>对不起,此功能只有本站会员才能使用!<br><li>如果你是本站会员请先<a href=admin/login.asp target=_top>登陆</a>后进入。<br><li>如果你还不是本站会员请先<a href=admin/reg.asp target=_top>免费注册</a>。")
  response.end
end if
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误:禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<!--#include file="admin/mdb_path_info.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>送给好友</title>
<style type="text/css">
<!--
td {
	font-size: 12px;
	font-family: "宋体";
}
-->
</style>
</head>

<body>

<table border="0" cellpadding="5" cellspacing="5" width="37%" align="center" bgcolor="#F7F7F7">
  <tr>
    <td width="100%">
      <table border="1" cellpadding="0" cellspacing="0" width="100%" bgcolor="#FFFFFF" bordercolor="#C6C6C6" bordercolorlight="#FFFFFF">
        <tr>
          <td width="100%">
            <table border="0" cellpadding="0" cellspacing="10" width="100%">
              <tr>
                <td width="100%"><img border="0" src="images/mail_top2.gif" width="320" height="33"></td>
              </tr>
              <tr>
                <td width="100%">
                  <table border="2" cellpadding="0" cellspacing="0" width="100%" bordercolor="#BDEF6B" bgcolor="#F7F7F7">
                    <tr>
                      <td width="100%">
                        <table border="0" cellpadding="2" cellspacing="5" width="100%"><%
id=request("id")	
set rs=server.createobject("adodb.recordset")
sql="select * from info where id="&id
rs.open sql,conn,1,1 
%><form action=mailto_joke.asp><tr>
                            <td width="30%" align="right"><font color="#FF0000">·</font>对方姓名:</td>
                            <td width="71%"><input name=toname size=26 style="border: 1 solid #808080"></td>
                          </tr>
                          <tr>
                            <td width="30%" align="right"><font color="#FF0000">·</font>对方信箱:</td>
                            <td width="71%"><input name=tomail size=26 style="border: 1 solid #808080"></td>
                          </tr>
                          <tr>
                            <td width="30%" align="right"><font color="#FF0000">·</font>你的姓名:</td>
                            <td width="71%"><input name=T12 size=26 style="border: 1 solid #808080"></td>
                          </tr>
                          <tr>
                            <td width="30%" align="right"><font color="#FF0000">·</font>你的信箱:</td>
                            <td width="71%"><input name=T6 size=26 style="border: 1 solid #808080"></td>
                          </tr>
                          <tr>
                            <td width="30%" align="right"><font color="#FF0000">·</font>作 品 名:</td>             
                            <td width="71%"><input name=T8 onFocus="this.blur()" value="<%=rs("title")%>" size=26 style="border: 1 solid #808080"></td>
                          </tr>
                          <tr>
                            <td width="30%" align="right" valign="middle"><font color="#FF0000">·</font>你的附语:</td>
                            <td width="71%"><TEXTAREA rows=5 cols=25 name=T13 style="border: 1 solid #808080">附语(50字以内)</TEXTAREA></td>
                          </tr>
                          <tr>
                            <td width="100%" colspan="2"><hr size="1" color="#009933"></td>    
                          </tr>
                          <tr>
                            <td width="100%" colspan="2" align="center"><input type="image" src="images/mail_ok.gif" border="0" width="62" height="40">&nbsp;&nbsp; <img type="reset" src="images/mail_no.gif" border="0" width="62" height="40"></td>                  
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p><TEXTAREA rows=1 cols=1 name=T5 onFocus="this.blur()"><a href="http://myflash.shanke.cn/joke/<%=rs("id")%>.htm" target='_blank'>请点这里查看!</a></TEXTAREA><input name=totime size=18 value="<%=FORMATDATETIME(DATE,vbShortDate)%>" onFocus="this.blur()"></form></p>
</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -