<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn/conn.asp"-->
<!--#include file="inc/Commoncode.asp"-->
<!--#include file="inc/CommonFunction.asp"-->
<%Call SQLin()
s=Trim(Request("s"))
cls=""
if s="" or not IsNumeric(s) then
response.end()
else
response.Write("document.write('<div id=""s"&s&""">Êý¾Ý¶ÁÈ¡ÖÐ¡­¡­</div>');")
inhs=s
set cl=conn.execute("select LabelContent from JOB_Label where LabelID="&s&" and (LabelContent like '%{$GetComList(%' or LabelContent like '%{$GetResumeList(%' or LabelContent like '%{$GetHireList(%')")
if not cl.eof then
cls=DetectUrl(CreateHTMLReplace(ReplaceLableFlag(cl(0))))
end if
cl.close
set cl=nothing
if cls<>"" then
cls=replace(cls,chr(13) ,"")
cls=replace(cls,chr(10) ,"")
end if
response.Write("s"&inhs&".innerHTML='"&cls&"';")
end if
Call CloseConn

Function DetectUrl(sContent)
Dim re,sMatch
Set re=new RegExp
re.Multiline=True
re.IgnoreCase =true
re.Global=True
re.Pattern = "(src|href)=""?((?!http://)[-A-Z0-9+&@#%=~_|!:,.;/?]+)""?"
Set RemoteFile = re.Execute(sContent)
Dim sAbsoluteUrl
For Each RemoteFileUrl in RemoteFile
If Left(RemoteFileUrl.SubMatches(1),1)="/" Then
sAbsoluteUrl=SiteUrl
Else
sAbsoluteUrl=SiteUrl&InstallDir
End If
sAbsoluteUrl = RemoteFileUrl.SubMatches(0)&"="""&sAbsoluteUrl&RemoteFileUrl.SubMatches(1)&""""
sContent=Replace(sContent,RemoteFileUrl,sAbsoluteUrl)
Next
DetectUrl=sContent
End Function
%>