<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then
response.redirect "MemberCenter.asp"
response.end
end if
dim TalentsName,BirthDate,Stature,Marriage,RegResidence,EduResume,JobResume
dim mLinkman,mSex,mAddress,mZipCode,mTelephone,mMobile,mEmail,mAddTime,ReplyContent,ReplyTime
call TalentsInfo()
%>
"
end function
sub TalentsInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_Talents where ID="&request.QueryString("ID")
rs.open sql,conn,1,1
TalentsName=rs("TalentsName")
BirthDate=FormatDate(rs("BirthDate"),13)
Stature=rs("Stature")
Marriage=rs("Marriage")
RegResidence=rs("RegResidence")
EduResume=HtmlStrReplace(rs("EduResume"))
JobResume=HtmlStrReplace(rs("JobResume"))
mLinkman=rs("Linkman")
mSex=rs("Sex")
mAddress=rs("Address")
mZipCode=rs("ZipCode")
mTelephone=rs("Telephone")
mMobile=rs("Mobile")
mEmail=rs("Email")
mAddTime=rs("AddTime")
ReplyContent=HtmlStrReplace(rs("ReplyContent"))
ReplyTime=rs("ReplyTime")
rs.close
set rs=nothing
end sub
%>
色诱久久av_亚洲一卡二卡三卡四卡无卡麻豆_国产成人综合久久亚洲精品_免费大黄网站
