📄 res_conact.asp
字号:
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2" class="text01">
<%
SQL = "Select Top 3 Perid,RealName,Video_PhotoUrl,ResumeMode,Video_FilePath From [pH_Person_Info] Where Nc_Video=1 And Video_BestFlag=1 And DateDiff(d,Video_Date,GetDate())>=0 And DateDiff(d,Video_EndDate,GetDate())<=0 Order by Ncid Desc"
Set Rs = Conn.Execute(SQL)
If Rs.eof Then
Response.write "<tr><td>系统中没有视频简历！</td></tr>"
Else
Tmp = Rs.GetRows()
Rs.Close
%>
<tr align="left">
<%
For i=0 to Ubound(Tmp,2)
Perid = Tmp(0,i)
RealName = Tmp(1,i)
Video_PhotoUrl = Tmp(2,i)
Video_FilePath = Tmp(3,i)
%>
<td width="33%" align="center" valign="top">
<table width="127" border="0" cellpadding="0" cellspacing="0" class="text01">
<tr>
<td><img src="Images/Tp01.gif" width="127" height="7"></td>
</tr>
<tr>
<td background="Images/Tp02.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="7"> </td>
<td height="106" align="center"><a href="../Person/Resume/Resume_1.asp?Param-<%= Perid %>.html" target="_blank"><img src="../Uploadfiles/PersonVideoPhoto/<%= Video_PhotoUrl %>" width="110" height="100" border="0"></a></td>
<td width="5"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td><img src="Images/Tp03.gif" width="127"></td>
</tr>
<tr>
<td align="center" valign="middle">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
<tr class="text01">
<td height="18" align="center" valign="middle" bgcolor="#FFFFFF">姓名：<a href="../Person/Resume/Resume_1.asp?Param-<%= Perid %>.html" target="_blank"><font color="#FF0000"><%= RealName %></font></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<%
Next
%>
</tr>
<%
End if
%>
</table>
</td>
</tr>
</table>
</td>
<td width="5"> </td>
<td width="150" valign="top" bgcolor="#F5F5F5">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select Top 4 * From [pH_Web_Ad] Where WebName=6 And ad_Width=148 And ad_Height=60 And DateDiff(d,BeginDate,GetDate())>=0 And DateDiff(d,EndDate,GetDate())<=0 And Websub='"&Cls_Websub&"' Order By ad_Sort Asc"
Set Rs = Conn.Execute(SQL)
While Not Rs.Eof
If Rs("AdClass") = 1 Then
%>
<tr>
<td height="68" align="center"> <a href="<%= "http://"&Rs("AdUrl") %>" target="_blank"><img src="../Uploadfiles/AdFile/<%= Rs("AdFile") %>" width="<%= Rs("ad_Width") %>" height="<%= Rs("ad_Height") %>" border="0"></a>
</td>
</tr>
<% Else %>
<tr>
<td height="68" align="center"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%= Rs("ad_Width") %>" height="<%= Rs("ad_Height") %>">
<param name="movie" value="../Uploadfiles/AdFile/<%= Rs("AdFile") %>">
<param name=quality value=high>
<embed src="../Uploadfiles/AdFile/<%= Rs("AdFile") %>" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="435" height="75">
</embed>
</object> </td>
</tr>
<%
End if
Rs.Movenext
Wend
Rs.Close
%>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="f5f5f5" class="text01">
<tr>
<td height="25" background="../Images/Person/newqy.gif"><img src="../Images/Person/point_title1.gif" width="16" height="16">
<strong><font color="#333333">在线预约拍摄</font></strong></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF"> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" class="text01">
<Form action="?Action=save" method="post" name="the" onSubmit="return the_check();">
<script language="JavaScript">
function the_check(){
if (document.the.name.value==""){
alert("-请输入您的姓名-");
document.the.name.focus();
return false;
}
if (document.the.phone.value==""){
alert("-请输入您的电话-");
document.the.phone.focus();
return false;
}
if (document.the.mail.value==""){
alert("-请输入您的电子邮件-");
document.the.mail.focus();
return false;
}
if (document.the.dates.value==""){
alert("-请输入您的预约时间-");
document.the.dates.focus();
return false;
}
}
</script>
<tr bgcolor="#FFFFFF">
<td width="80" height="25" align="right">姓 名：</td>
<td height="25"><input name="name" type="text" id="name">
<font color="#666666">请输入您的姓名</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" height="25" align="right">电 话：</td>
<td height="25"><input name="phone" type="text" id="phone">
<font color="#666666">请输入您的联系电话</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" height="25" align="right">电子邮件：</td>
<td height="25"><input name="mail" type="text" id="mail">
<font color="#666666">请输入您的电子邮件</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" height="25" align="right">QQ/MSN：</td>
<td height="25"><input name="qq" type="text" id="name4">
<font color="#666666">请输入您的聊天工具号码</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right">拍摄时间：</td>
<td height="25"><input name="dates" type="text" onclick="SD(this,'document.all.dates')">
<font color="#666666">请选择您的拍摄时间</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right"> </td>
<td height="25" align="center"> <input type="submit" name="Submit4" value="开始预约">
</td>
</tr>
</Form>
</table></td>
</tr>
<tr>
<td height="25" background="../Images/Person/newqy.gif"><img src="../Images/Person/point_title1.gif" width="16" height="16">
<strong><font color="#333333">其他预约拍摄方式：</font></strong></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="3" cellspacing="0" class="text01">
<tr>
<td width="80" height="22" align="right">电 话：</td>
<td><%= Cls_Phone %></td>
</tr>
<tr>
<td width="80" height="22" align="right">传 真：</td>
<td><%= Cls_Phone %></td>
</tr>
<tr>
<td width="80" height="22" align="right">邮 件：</td>
<td><%= Cls_Email %></td>
</tr>
<tr>
<td width="80" height="22" align="right">QQ聊天：</td>
<td><%= Cls_QQ %></td>
</tr>
<tr>
<td width="80" height="22" align="right">MSN聊天：</td>
<td><%= Cls_Email %></td>
</tr>
</table>
</td>
</tr>
</table> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#eeeeee"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><!--#include file="../Include/Footer.asp" --></td>
</tr>
</table>
</body>
</html>
<%
Set Rs = Nothing
Sub Saves()
Dim Name,Phone,Mail,QQ,Dates
Name = SafeRequest("Name")
Phone = SafeRequest("Phone")
Mail = SafeRequest("Mail")
QQ = SafeRequest("qq")
Dates = SafeRequest("dates")
'Response.write QQ
'Response.End()
Conn.Execute("Insert Into [pH_Video_Conact] (ac_Name,ac_Phone,ac_Mail,ac_QQ,ac_Date,ac_Adddate,ac_Flag) Values ('"&Name&"','"&Phone&"','"&Mail&"','"&QQ&"','"&Dates&"','"&Now()&"',0)")
Conn.Close
Set Conn = Nothing
Response.write "<script>alert('-您的预约时间已经成功地提交！-');location.href='index.asp';</script>"
Response.End()
End Sub
Call CloseDB
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -