talentwrite.asp
来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 199 行
ASP
199 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%call SiteInfo
headid=4
%>
<!--#include file="Head.Asp" -->
<%
dim JobID,TalentsName,BirthDate,Stature,Marriage,RegResidence,EduResume,JobResume
JobID=request.QueryString("JobID")
TalentsName=request.QueryString("JobName")
dim mMemID,mLinkman,mSex,mAddress,mZipCode,mTelephone,mMobile,mEmail
if session("MemName")<>"" and session("MemLogin")="Succeed" then
call MemInfo()
else
mSex="Male"
mMemID=0
end if
%>
<div class="clear"></div>
<div id="contant">
<div class="cleft">
<div class="news">
<div class="title">
<b>Recruitment List</b>
</div>
<div>
<ul>
<%=WebMenu()%>
</ul>
</div>
</div>
<div class="news">
<div class="title">
<b>Hot Product</b>
</div>
<div>
<ul>
<%=Producthot(10)%>
</ul>
</div>
</div>
</div>
<div class="cright">
<div class="crightb">
<div class="crightbtitle">
<div class="crightbtitlel">
Location:
</div>
<div class="crightbtitler">
<%=WebLocation()%>
</div>
</div>
<div class="crightbcontent">
<table cellspacing="0" cellpadding="0" width="100%" bgcolor="#ffffff" border="0" heihgt="">
<tbody>
<tr>
<td height="20"><table width="95%" border="0" align="center" cellpadding="3" cellspacing="5">
<form action="TalentSave.asp?MemberID=<%=mMemID%>&JobID=<%=JobID%>" method="post" name="formWrite" id="formWrite">
<tr>
<td width="200" align="right">Job Title:</td>
<td><input name="TalentsName" type="text" id="TalentsName" value="<%=TalentsName%>" size="40" maxlength="100" />
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">Name:</td>
<td><input name="Linkman" type="text" value="<%=mLinkman%>" size="20" maxlength="50" />
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">Sex:</td>
<td><input name="Sex" type="radio" value="先生" class="inputnoborder" <%if mSex="先生" then response.write ("checked")%> />
Male
<input type="radio" name="Sex" value="女士" class="inputnoborder" <%if mSex="女士" then response.write ("checked")%> />
Female<font color="red">*</font></td>
</tr>
<tr>
<td align="right">BirthDate:</td>
<td><input name="BirthDate" type="text" id="BirthDate" size="20" maxlength="10" />
<font color="red">*</font>(Format 1978-08-18)</td>
</tr>
<tr>
<td align="right">Marriage:</td>
<td><input name="Marriage" type="radio" value="未婚" checked="checked" class="inputnoborder" />
Unmarried
<input type="radio" name="Marriage" value="已婚" class="inputnoborder" />
Married<font color="red">*</font></td>
</tr>
<tr>
<td align="right">Stature:</td>
<td><input name="Stature" type="text" id="Stature" size="20" maxlength="10" />CM
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">RegResidence</td>
<td><input name="RegResidence" type="text" id="RegResidence" size="50" maxlength="100" />
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">Education:</td>
<td><font color="red">*</font></td>
</tr>
<tr>
<td align="right"></td>
<td><textarea name="EduResume" rows="8" style="width:500px"></textarea></td>
</tr>
<tr>
<td align="right">Experience:</td>
<td><font color="red">*</font></td>
</tr>
<tr>
<td align="right"></td>
<td><textarea name="JobResume" rows="8" id="JobResume" style="width:500px"></textarea></td>
</tr>
<tr>
<td align="right">Address:</td>
<td><input name="Address" type="text" value="<%=mAddress%>" size="50" maxlength="100" />
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">Post Code:</td>
<td><input name="ZipCode" type="text" id="ZipCode" value="<%=mZipCode%>" size="20" maxlength="20" />
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">Tel:</td>
<td><input name="Telephone" type="text" id="Telephone" value="<%=mTelephone%>" size="20" maxlength="50" />
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">Mobile:</td>
<td><input name="Mobile" type="text" id="Mobile" value="<%=mMobile%>" size="20" maxlength="50" />
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">Email:</td>
<td><input name="Email" type="text" id="Email" value="<%=mEmail%>" size="30" maxlength="50" />
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">Number:</td>
<td><input name="CheckCode" type="text" size="6" maxlength="6" />
<a href="javascript:refreshimg()" title="Can not see clearly, change a picture."><img src="../Include/CheckCode/CheckCode.asp" name="checkcode" align="absmiddle" id="checkcode" style="border: 1px solid #ffffff" /></a> <font color="red">*</font></td>
</tr>
<tr>
<td height="31" align="right"> </td>
<td><input name="Submit" type="submit" value="apply" /></td>
</tr>
</form>
</table></td>
</tr>
</table>
</div>
</div>
</div>
</div>
<!--#include file="Foot.Asp"-->
<%
function WebMenu()
response.write "<li><img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""JobsList.asp"" style=""margin-left:5px;"">Recruitment Information</a></li>"
response.write "<li><img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MemberTalent.asp"" style=""margin-left:5px;"">My Candidates</a></li>"
end function
function WebLocation()
WebLocation=" Location:<a href=""index.asp"" class=""agray"">Home</a> - CV submission"&VbCrLf
end Function
sub MemInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_Members where MemName='"&session("MemName")&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<center>No relevant information</center>"
else
mMemID=rs("ID")
if not rs("RealName")="" then
mLinkman=rs("RealName")
else
mLinkman=rs("MemName")
end if
mSex=rs("Sex")
mAddress=rs("Address")
mZipCode=rs("ZipCode")
mTelephone=rs("Telephone")
mMobile=rs("Mobile")
mEmail=rs("Email")
end if
rs.close
set rs=nothing
end sub
%>
<script language="javascript">
<!--
function refreshimg(){document.all.checkcode.src="../Include/CheckCode/CheckCode.asp";}
//-->
</script>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?