<!--#include file="../Include/Class_Conn.asp" -->
<% 
Dim SQL,Rs
Dim ResumeMode,FileName
Dim Param
'//获取参数
Param       = Replace_Text(Request("Param"))
'//查询会员的模板标记
SQL = "Select ResumeMode From [pH_Person_Info] Where Perid='"&Param&"'"
Set Rs = Conn.Execute(SQL)
If Rs.Eof Then
  Response.write "没有找到该个人用户！"
  Response.End()
End if
ResumeMode = Rs(0)
Rs.Close
'//查询模板文件
SQL = "Select FileName From [pH_Resume_Mode] Where Ncid="&Cstr(ResumeMode)
Set Rs = Conn.Execute(SQL)
If Not Rs.Eof Then
 FileName = Rs(0)
 Response.redirect "Resume/"&FileName&"?Param="&Param
Else
 Response.redirect "Resume/Resume_1.asp?Param="&Param
End if
Rs.Close
'//关闭数据库连接
CloseDB
 %>
