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

📄 sendmail0.asp

📁 顶级影视站ASP源代码系统。很全面很强大。数据库用access
💻 ASP
字号:
<!--#include file="HMconnection.asp"-->
<!--#include file="webconfig.asp"-->
<%
dim typeid
typeid = Request("typeid")
id = Request("id")
num=id
if id="" then
Response.Write("错误参数")
Response.End
else
set rs3=server.createobject("adodb.recordset")
sql3="select * from type where typeid="&typeid
rs3.open sql3,conn,1,1
types=rs3("type")
rs3.close
set rs=server.createobject("adodb.recordset")
sql="select * from film where id="&id
rs.open sql,conn,1,2
if not rs.EOF then
rs.Update
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=author content=顶级影视/>
<title>顶级影视---推荐影片<%=rs("title")%>给好友</title>
<link rel=stylesheet href=images/style.css>
<LINK href="style/style.css" rel=stylesheet type=text/css>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="480" border="0" height="100%" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td valign="top"><br style="line-height:20px;"> 
      <div align="center">
       <form method="POST" action="sendmail1.asp">
          <table border="2" width="468" bordercolor="#56B0F4" bordercolordark="#56B0F4" cellpadding="0" align="center" cellspacing="0">
            <tr> 
              <td width="82%" align="center"><a href="http://www.thorisport.com/media"><img src="images/sendmail.gif" width="468" height="40" border="0"></a></td>
          </tr>
          <tr> 
              <td width="82%" valign="middle" bgcolor="#FFFFFF"> 
                <div align="center"><font color="#000000"><br>
                  推荐影片 <font color="#FF0000"><%=rs("title")%><font color="#000000"> 
                  给</font></font>好友<br>
                  <br>
                  </font></div>
                <table width="99%" align="center" cellpadding="3">
                  <tr bgcolor="#FFFFFF"> 
                    <td width=49%>&nbsp;&nbsp; 送给谁: 
                      <input type=text name=name size=15 value='您朋友的名字' onFocus=this.value='' STYLE="border: 1px solid #000000">
                  </td>
                    <td width=51%>&nbsp;Email: 
                      <input type=text name=mail size=20 value='您朋友的信箱' onFocus=this.value='' STYLE="border: 1px solid #000000">
                  </td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                    <td width=49%>&nbsp;&nbsp; 点送人: 
                      <input type=text name=cname size=15 value='您的名字' onFocus=this.value='' STYLE="border: 1px solid #000000">
                  </td>
                    <td width=51%>&nbsp;Email: 
                      <input type=text name=cmail size=20 value='您的信箱' onFocus=this.value='' STYLE="border: 1px solid #000000">
                  </td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                    <td valign=top colspan="2" align="center"> 
                      <div align="center">
                        <textarea name=dmail rows="8" cols="56" onFocus=this.value='' STYLE="border: 1px solid #000000">留言....</textarea>
                      </div>
                    </td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                    <td height=23 align=center colspan="2"> 
                      <input type="submit"  value="提交" name="Submit" STYLE="border: 1px solid #000000">
                    &nbsp;&nbsp; 
                    <input type="reset"  value="重写" name="B1" STYLE="border: 1px solid #000000">
                  </td>
                </tr>
              </table>
                <input type="text" name="email" value="<%=rs("title")%>" size="42" maxlength="50" style="display:none">
              <input type="text" name="fmail" value="<%=webaddress%>/showfilm.asp?id=<%=rs("id")%>&typeid=<%=rs("typeid")%>" size="42" maxlength="50" style="display:none">
              </td>
          </tr>
        </table>
        </form>
      </div>
    </td>
  </tr>
</table>
</body>
</html>
<html></html>
<%end if
rs.close
set rs=nothing
set conn=nothing%>

⌨️ 快捷键说明

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