（中外合资）百莲凯国际企业管理有限公司，始创于2001年，是中国美容连锁经营的先驱。企业拥有独立的科研、生产及人才培训基地，汇集了各领域的顶尖人才，先后与法、美、日、韩、香港、台湾等国家或地区的同行达成合作，从而形成了完善的企业体系和强大的综合实力。
百莲凯拥有先进的经营模式及与之配套的完善的服务体系。凭借强大的实力、先进的模式及在得到社会各界的大力支持下，百莲凯事业取得了长足的发展。迄今为止，旗下加盟店数逾三千家，成为了业界当之无愧的“美容连锁之王”！ 被誉为“美容业的麦当劳”、“中国美容连锁业的大旗”。
历经八年的发展，目前，百莲凯已成长为中国美容市场上最具经营规模及影响力的品牌之一，跻身行业支柱企业之列。
在追求自身发展的同时，百莲凯积极回馈社会。先后创办了“中国美容师节”、成立了“中国优秀美容师创业扶持基金”等，并积极参与了各种赈灾捐助，历年来，企业在公益事业的投入超过千万之巨。
凭着优异经营表现，百莲凯获得了市场及社会的广泛肯定，先后获得诸多荣誉称号，并得到了包括中央电视台、凤凰卫视、广东卫视、阳光卫视、《大公报》、《中国企业报》、《瞭望周刊》、《经济日报》等权威媒体的积极关注报道。
获得快速发展的百莲凯，目前正导入上市规划，着手系列股市运作，总体进展顺利，预计将在未来三年正式投身股票市场，争取更大的发展。百莲凯愿真诚团结广大有志于美容事业的同仁们，共同把握机遇，携手开辟中国美容事业的新篇章！
<%
dim pagetit(15),errtit(10)
pagetit(0)="û"
pagetit(1)="ûͼƬ"
pagetit(2)="ûϢ"
pagetit(3)="ûͼƬ"
pagetit(4)="ҳ"
pagetit(5)="һҳ"
pagetit(6)="һҳ"
pagetit(7)="βҳ"
pagetit(8)="ҳ"
pagetit(9)="ҳ"
pagetit(10)="һ"
pagetit(11)="¼"
pagetit(12)="ҳ"
pagetit(13)="ÿҳ"
pagetit(14)="¼"
pagetit(15)="ͳɹ!"
errtit(0)="д"
errtit(1)=": дȷ"
errtit(2)="Ϣ"
errtit(3)="Ŀԭ"
errtit(4)=""
errtit(5)="ȵ¼"
errtit(6)=": д"
%><%
Class Cls_vbsPage
Private oConn 'Ӷ
Private iPagesize 'ÿҳ¼
Private sPageName 'ַҳ
Private sDbType
'ݿ,ACΪaccess,MSSQLΪSQL SERVER2000洢̰,MYSQLΪmysql,PGSQLΪPostGreSql
Private iRecType '¼(>0Ϊȡֵٸ߹̶ֵ,0ִcountôcookies,-1ִcountcookies)
Private sJsUrl 'Cls_jsPage.js·
Private sField 'ֶ
Private sTable '
Private sCondition ',Ҫwhere
Private sOrderBy ',Ҫorder by,Ҫascdesc
Private sPkey ',д
Private iRecCount
'================================================================
' Class_Initialize ijʼ
'================================================================
Private Sub Class_Initialize
iPageSize=10
sPageName="Page"
sDbType="AC"
iRecType=0
sJsUrl=""
sField=" * "
End Sub
'================================================================
' Conn õݿӶ
'================================================================
Public Property Set Conn(ByRef Value)
Set oConn=Value
End Property
'================================================================
' PageSize ÿһҳ¼,Ĭ10¼
'================================================================
Public Property Let PageSize(ByVal intPageSize)
iPageSize=CheckNum(intPageSize,0,0,iPageSize,0)
End Property
'================================================================
' PageName ַҳ
'================================================================
Public Property Let PageName(ByVal strPageName)
sPageName=IIf(Len(strPageName)<1,sPageName,strPageName)
End Property
'================================================================
' DbType õݿ
'================================================================
Public Property Let DbType(ByVal strDbType)
sDbType=UCase(IIf(Len(strDbType)<1,sDbType,strDbType))
End Property
'================================================================
' RecType ȡ¼(>0Ϊֵ߹̶ֵ,0ִcountôcookies,-1ִcountcookies)
'================================================================
Public Property Let RecType(ByVal intRecType)
iRecType=CheckNum(intRecType,0,0,iRecType,0)
End Property
'================================================================
' JsUrl ȡCls_jsPage.js·
'================================================================
Public Property Let JsUrl(ByVal strJsUrl)
sJsUrl=strJsUrl
End Property
'================================================================
' Pkey ȡ
'================================================================
Public Property Let Pkey(ByVal strPkey)
sPkey=strPkey
End Property
'================================================================
' Field ȡֶ
'================================================================
Public Property Let Field(ByVal strField)
sField=IIf(Len(strField)<1,sField,strField)
End Property
'================================================================
' Table ȡñ
'================================================================
Public Property Let Table(ByVal strTable)
sTable=strTable
End Property
'================================================================
' Condition ȡ
'================================================================
Public Property Let Condition(ByVal strCondition)
s=strCondition
sCondition=IIf(Len(s)>2," WHERE "&s,"")
End Property
'================================================================
' OrderBy ȡ
'================================================================
Public Property Let OrderBy(ByVal strOrderBy)
s=strOrderBy
sOrderBy=IIf(Len(s)>4," ORDER BY "&s,"")
End Property
'================================================================
' RecCount ¼
'================================================================
Public Property Get RecCount()
If iRecType>0 Then
i=iRecType
Elseif iRecType=0 Then
i=CheckNum(Request.Cookies("ShowoPage")(sPageName),1,0,0,0)
s=Trim(Request.Cookies("ShowoPage")("sCond"))
IF i=0 OR sCondition<>s Then
i=oConn.Execute("SELECT COUNT("&sPkey&") FROM "&sTable&" "&sCondition,0,1)(0)
Response.Cookies("ShowoPage")(sPageName)=i
Response.Cookies("ShowoPage")("sCond")=sCondition
End If
Else
i=oConn.Execute("SELECT COUNT("&sPkey&") FROM "&sTable&" "&sCondition,0,1)(0)
End If
iRecCount=i
RecCount=i
End Property
'================================================================
' ResultSet طҳļ¼
'================================================================
Public Property Get ResultSet()
s=Null
'¼
i=iRecCount
'ǰҳ
If i>0 Then
iPageCount=Abs(Int(-Abs(i/iPageSize)))'ҳ
iPageCurr=CheckNum(Request.QueryString(sPageName),1,1,1,iPageCount)'ǰҳ
Select Case sDbType
Case "MSSQL" 'sqlserver2000ݿ洢̰
Set Rs=server.CreateObject("Adodb.RecordSet")
Set Cm=Server.CreateObject("Adodb.Command")
Cm.CommandType=4
Cm.ActiveConnection=oConn
Cm.CommandText="sp_Util_Page"
Cm.parameters(1)=i
Cm.parameters(2)=iPageCurr
Cm.parameters(3)=iPageSize
Cm.parameters(4)=sPkey
Cm.parameters(5)=sField
Cm.parameters(6)=sTable
Cm.parameters(7)=Replace(sCondition," WHERE ","")
Cm.parameters(8)=Replace(sOrderBy," ORDER BY ","")
Rs.CursorLocation=3
Rs.LockType=1
Rs.Open Cm
Case "MYSQL" 'MYSQLݿ
ResultSet_Sql="SELECT "&sField&" FROM "&sTable&" "&sCondition&" "&sOrderBy&" LIMIT "&(iPageCurr-1)*iPageSize&","&iPageSize
Set Rs=oConn.Execute(ResultSet_Sql)
Case Else 'ԭʼķ(ACͬ)
Set Rs = Server.CreateObject ("Adodb.RecordSet")
ResultSet_Sql="SELECT "&sField&" FROM "&sTable&" "&sCondition&" "&sOrderBy
Rs.Open ResultSet_Sql,oConn,1,1,&H0001
Rs.AbsolutePosition=(iPageCurr-1)*iPageSize+1
End Select
s=Rs.GetRows(iPageSize)
Rs.close
Set Rs=Nothing
End If
ResultSet=s
End Property
'================================================================
' Class_Terminate ע
'================================================================
Private Sub Class_Terminate()
If IsObject(oConn) Then Set oConn=Nothing
End Sub
'================================================================
' :ַ,ǷСֵ,Ƿֵ,Сֵ(Ĭ),ֵ
'================================================================
Private Function CheckNum(ByVal strStr,ByVal blnMin,ByVal blnMax,ByVal intMin,ByVal intMax)
Dim i,s,iMi,iMa
s=Left(Trim(""&strStr),32):iMi=intMin:iMa=intMax
If IsNumeric(s) Then
i=CDbl(s)
i=IIf(blnMin=1 And iiMa,iMa,i)
Else
i=iMi
End If
CheckNum=i
End Function
'================================================================
' :ж
'================================================================
Private Function IIf(ByVal blnBool,ByVal strStr1,ByVal strStr2)
Dim s
If blnBool Then
s=strStr1
Else
s=strStr2
End If
IIf=s
End Function
'================================================================
' ҳ
'================================================================
Public Sub ShowPage(pagetype)%>
<%End Sub
End Class%><%
'On Error Resume Next
Response.Buffer = True
dim startime
startime=timer()
Const FR_HR_Edition = 2
Const FR_HR_DataBaseType = 1 'ϵͳݿͣ"1"ΪMS SQL2000ݿ⣬"0"ΪMS ACCESS 2000ݿ
Const FR_HR_DomainRoot = "138job.com" 'վ
Const FRHRCMS = "FRHRCMS20"
Const FR_HR_Site = "1" 'վӵƣ1Ϊվ
Const FR_HR_Site_city = "" 'վӵƣΪȫ
Const FR_HR_Site_industry = "" 'ҵID
Const FR_HR_Site_industry_ID = "" 'ҵСID
Const FR_HR_Sql = True 'Ƿ÷SQLע빦ܣTrueΪãFalseΪ
Const FClose=false 'άرյ¼ע
Const FR_SMS_Type=2 '1-() 2-()
'*******************ļϴĿ¼ʼ*******************
Const FR_UPFILES_DIR = "UpFiles" 'ļϴĿ¼
'********************ʼ********************
Const FR_HR_Dict = "Scripting.Dictionary" 'Scripting.Dictionary
Const FR_HR_Fso = "Scripting.FileSystemObject" 'Scripting.FileSystemObject
Const FR_HR_Stream = "Adodb.Stream" 'Adodb.Stream
Const FR_HR_Rs = "Adodb.RecordSet" 'Adodb.RecordSet
Const FR_HR_Http = "Microsoft.XMLHTTP" 'Microsoft.XMLHTTP
Const FR_HR_XmlHttp = "MSXML2.XMLHTTP" 'MSXML2.XMLHTTP
Const FR_HR_Conn = "Adodb.Connection" 'Adodb.Connection
Const FR_HR_JMail = "JMail.SMTPMail" 'Jmail
Const FR_HR_Cdonts = "CDONTS.NewMail" 'CDONTS
Const FR_HR_Persits = "Persits.MailSender" 'ASPEMAIL
Const FR_HR_Easymail = "easymail.MailSend" 'WebEasyMail
Const FR_HR_SaFileUp = "SoftArtisans.FileUp" 'SA-FileUp ļϴ
Const FR_HR_SaFileManager = "SoftArtisans.FileManager" 'SoftArtisans ļ
Const FR_HR_Lyf = "LyfUpload.UploadFile" 'Ʒļϴ
Const FR_HR_PU = "Persits.Upload.1" 'ASPUpload ļϴ
Const FR_HR_SaImage = "SoftArtisans.ImageGen" 'SA ͼд
Const FR_HR_W3Image = "W3Image.Image" 'Dimac ͼд
Const FR_HR_PJ = "Persits.Jpeg" 'ASPJpeg
'****************************************
Dim Database,DatabaseName,Password,Username,HostIP
'ACCESSݿ⣬ĺݿļ
Database = "database/jobcom.mdb" 'ACCESSݿļ
'SQLݿ⣬ĺݿѡ
Username = "lqjobcom" 'SQLݿû
Password = "fu]js1_S2fs*sxo)9" 'SQLݿû
DatabaseName = "dbjobcom" 'SQLݿ
HostIP = "SQLLISTENER" 'SQLIPַأָվݿͬһ̨ϣá(local)127.0.0.1DZָվݿֱڲͬķϣдݿʵIP
Dim Conn, ConnStr, FR_HR_True, FR_HR_False, FR_HR_Now, FR_HR_d,ConnMr,ConnBBS
Dim SiteName, SiteTitle, SiteUrl, SiteKey, LogoUrl, Copyright, Meta_Keywords, Meta_Description
Dim ContactMan, ContactAddress, ContactPhone, ContactFax
Dim MailObject, MailServer, MailServerUserName, MailServerPassWord, MailDomain
Dim WebmasterName, WebmasterEmail, InstallDir, AdminDir, CreateHTML, HTMLPath,DefaulText,CreateTime
Dim AdminRegCheckReg, AdminPerCheckReg, AdminComCheckReg, AdminSchCheckReg, AdminTraCheckReg, AdminPicCheckReg, AdminLogCheckReg, AdminHirCheckReg, AdminResCheckReg
Dim EmailRegOfRegCheck, EmailPerOfRegCheck, EmailComOfRegCheck, EmailSchOfRegCheck, EmailTraOfRegCheck
Dim emailsendregflag, emailsendperflag, emailsendcomflag, emailsendschflag, emailsendtraflag,Smssend
Dim GuestBook_EnableVisitor, GuestBook_ManageRubbish, UserName_RegDisabled, Point,UpfilesType,ComPositionId, pPoint
Dim MainWebCss
Call OpenConn
Call GetSiteConfig
Call WebCss()
'ݿ
Sub OpenConn()
On Error Resume Next
If FR_HR_DataBaseType = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & Username & "; Password = " & Password & "; Initial Catalog = " & DatabaseName & "; Data Source = " & HostIP & ";"
Else
ConnStr = "DBQ=" + Server.MapPath(Add_Root_Dir(Database)) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
ConnStr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(Add_Root_Dir(Database))
End If
Set Conn = Server.CreateObject(FR_HR_Conn)
Conn.open ConnStr
conn.DefaultDatabase = DatabaseName
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "
Բ緱æڴҳʱжϡҪģѾ֪ͨ138ģܿܽԳˢ¸ҳԺʡ[JOB-2020]
"
Response.End
End If
If FR_HR_DataBaseType = 1 Then
FR_HR_True = "1"
FR_HR_False = "0"
FR_HR_Now = "getdate()"
FR_HR_d = "d"
Else
FR_HR_True = "True"
FR_HR_False = "False"
FR_HR_Now = "Now()"
FR_HR_d = "'d'"
End If
End Sub
'رݿ
Sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
End Sub
Sub OpenMrConn()
On Error Resume Next
ConnMrStr = "Provider = Sqloledb; User ID =dbmrcom; Password = Hu02Nxlqt37HjncQ62zX6; Initial Catalog = dbmrcom; Data Source = " & HostIP & ";"
Set ConnMr = Server.CreateObject(FR_HR_Conn)
ConnMr.open ConnMrStr
If Err Then
Err.Clear
Set ConnMr = Nothing
Response.Write "
Բ緱æڴҳʱжϡҪģѾ֪ͨ138ģܿܽ[MR01]
"
Response.End
End If
End Sub
'رMrݿ
Sub CloseMrConn()
On Error Resume Next
If IsObject(ConnMr) Then
ConnMr.Close
Set ConnMr = Nothing
End If
End Sub
'bbsݿ
Sub OpenBbsConn()
On Error Resume Next
ConnBbsStr = "Provider = Sqloledb; User ID =dbbbscom; Password = ksj82jan7Balj3JAZq; Initial Catalog = dbbbscom; Data Source = " & HostIP & ";"
Set ConnBBS = Server.CreateObject(FR_HR_Conn)
ConnBBS.open ConnBbsStr
If Err Then
Err.Clear
Set ConnBBS = Nothing
Response.Write "
Բ緱æڴҳʱжϡҪģѾ֪ͨ138ģܿܽ[BBS]
"
Response.End
End If
End Sub
'رbbsݿ
Sub CloseBbsConn()
On Error Resume Next
If IsObject(ConnBBS) Then
ConnBBS.Close
Set ConnBBS = Nothing
End If
End Sub
'ȡϵͳò
Sub GetSiteConfig()
On Error Resume Next
Dim rsConfig
Set rsConfig = Conn.Execute("select * from JOB_Siteconfig where SiteID="&FR_HR_Site)
If Err Then
Err.Clear
Conn.Close
Set Conn = Nothing
Response.Write "
ԲϵͳæˢһαҳԺ
"
Response.End
End If
If RsConfig.bof And RsConfig.EOF Then
RsConfig.Close
Set RsConfig = Nothing
Response.Write "
ԲϵͳæˢһαҳԺ
"
Response.End
Else
'Ϣ2007612Mr.Hou
Application("SiteName")=rsconfig("SiteName") 'վ
Application("SiteTitle")=rsconfig("SiteTitle") 'վ
Application("SiteUrl")=rsconfig("SiteUrl") 'վURLַ
Application("SiteKey")=rsconfig("SiteKey") 'վȨ
Application("LogoUrl")=rsconfig("LogoUrl") 'վLOGOŵַԵַ
Application("Copyright")=rsconfig("Copyright") 'վȨϢǿ(̨)
Application("Meta_Keywords")=rsconfig("Meta_Keywords") 'վؼ
Application("Meta_Description")=rsconfig("Meta_Description") 'վ
Application("ContactMan")=rsconfig("ContactMan") 'ϵ
Application("ContactAddress")=rsconfig("ContactAddress") 'ϵַԭֶContactAdressΪContactAddress
Application("ContactPhone")=rsconfig("ContactPhone") '绰
Application("ContactFax")=rsconfig("ContactFax") '
Application("MailObject")=rsconfig("MailObject") 'ʼڷϵͳʼ
Application("MailServer")=rsconfig("MailServer") 'ʼ
Application("MailServerUserName")=rsconfig("MailServerUserName") 'û
Application("MailServerPassWord")=rsconfig("MailServerPassWord") '
Application("MailDomain")=rsconfig("MailDomain") 'ʼ
Application("WebmasterName")=rsconfig("WebmasterName") 'վ
Application("WebmasterEmail")=rsconfig("WebmasterEmail") 'վ
Application("InstallDir")=rsconfig("InstallDir") 'ϵͳװĿ¼
Application("AdminDir")=rsconfig("AdminDir") 'ԱĿ¼
Application("CreateHTML")=rsconfig("CreateHTML")
Application("HTMLPath")=rsconfig("HTMLPath")
Application("DefaulText")=rsconfig("DefaulText")
Application("CreateTime")=rsconfig("CreateTime")
Application("UpfilesType")=rsconfig("UpfilesType")
Application("ComPositionId")=rsconfig("ComPositionId")
Application("AdminRegCheckReg")=rsconfig("AdminRegCheckReg") 'ԱעǷ
Application("AdminPerCheckReg")=rsconfig("AdminPerCheckReg")
Application("AdminComCheckReg")=rsconfig("AdminComCheckReg")
Application("AdminSchCheckReg")=rsconfig("AdminSchCheckReg")
Application("AdminTraCheckReg")=rsconfig("AdminTraCheckReg")
Application("AdminPicCheckReg")=rsconfig("AdminPicCheckReg")
Application("AdminLogCheckReg")=rsconfig("AdminLogCheckReg")
Application("AdminHirCheckReg")=rsconfig("AdminHirCheckReg")
Application("AdminResCheckReg")=rsconfig("AdminResCheckReg")
Application("EmailRegOfRegCheck")=rsconfig("EmailRegOfRegCheck") 'עʼ
Application("EmailPerOfRegCheck")=rsconfig("EmailPerOfRegCheck")
Application("EmailComOfRegCheck")=rsconfig("EmailComOfRegCheck")
Application("EmailSchOfRegCheck")=rsconfig("EmailSchOfRegCheck")
Application("EmailTraOfRegCheck")=rsconfig("EmailTraOfRegCheck")
Application("emailsendregflag")=rsconfig("emailsendregflag") 'Ƿ
Application("emailsendperflag")=rsconfig("emailsendperflag")
Application("emailsendcomflag")=rsconfig("emailsendcomflag")
Application("emailsendschflag")=rsconfig("emailsendschflag")
Application("emailsendtraflag")=rsconfig("emailsendtraflag")
Application("Smssend")=rsconfig("Smssend")
Application("GuestBook_EnableVisitor")=rsconfig("GuestBook_EnableVisitor") 'Ƿ
Application("GuestBook_ManageRubbish")=rsconfig("GuestBook_ManageRubbish") 'Ե
Application("UserName_RegDisabled")=rsconfig("UserName_RegDisabled") 'ֹעû
Application("Point")=rsconfig("Point")
Application("pPoint")=rsconfig("pPoint")
rsConfig.Close
Set rsConfig = Nothing
End If
SiteName=Application("SiteName")
SiteTitle=Application("SiteTitle")
SiteUrl=Application("SiteUrl")
SiteKey=Application("SiteKey")
LogoUrl=Application("LogoUrl")
Copyright=Application("Copyright")
Meta_Keywords=Application("Meta_Keywords")
Meta_Description=Application("Meta_Description")
ContactMan=Application("ContactMan")
ContactAddress=Application("ContactAddress")
ContactPhone=Application("ContactPhone")
ContactFax=Application("ContactFax")
Copyright=Replace(Copyright,"{$SiteName}",SiteName)
Copyright=Replace(Copyright,"{$ContactAddress}",ContactAddress)
Copyright=Replace(Copyright,"{$ContactMan}",ContactMan)
Copyright=Replace(Copyright,"{$ContactPhone}",ContactPhone)
Copyright=Replace(Copyright,"{$ContactFax}",ContactFax)
MailObject=Application("MailObject")
MailServer=Application("MailServer")
MailServerUserName=Application("MailServerUserName")
MailServerPassWord=Application("MailServerPassWord")
MailDomain=Application("MailDomain")
WebmasterName=Application("WebmasterName")
WebmasterEmail=Application("WebmasterEmail")
InstallDir=Application("InstallDir")
AdminDir=Application("AdminDir")
CreateHTML=Application("CreateHTML")
HTMLPath=Application("HTMLPath")
DefaulText=Application("DefaulText")
CreateTime=Application("CreateTime")
UpfilesType=Application("UpfilesType")
ComPositionId=Application("ComPositionId")
AdminRegCheckReg=Application("AdminRegCheckReg")
AdminPerCheckReg=Application("AdminPerCheckReg")
AdminComCheckReg=Application("AdminComCheckReg")
AdminSchCheckReg=Application("AdminSchCheckReg")
AdminTraCheckReg=Application("AdminTraCheckReg")
AdminPicCheckReg=Application("AdminPicCheckReg")
AdminLogCheckReg=Application("AdminLogCheckReg")
AdminHirCheckReg=Application("AdminHirCheckReg")
AdminResCheckReg=Application("AdminResCheckReg")
Smssend=Application("Smssend")
EmailRegOfRegCheck=Application("EmailRegOfRegCheck")
EmailPerOfRegCheck=Application("EmailPerOfRegCheck")
EmailComOfRegCheck=Application("EmailComOfRegCheck")
EmailSchOfRegCheck=Application("EmailSchOfRegCheck")
EmailTraOfRegCheck=Application("EmailTraOfRegCheck")
emailsendregflag=Application("emailsendregflag")
emailsendperflag=Application("emailsendperflag")
emailsendcomflag=Application("emailsendcomflag")
emailsendschflag=Application("emailsendschflag")
emailsendtraflag=Application("emailsendtraflag")
GuestBook_EnableVisitor=Application("GuestBook_EnableVisitor")
GuestBook_ManageRubbish=Application("GuestBook_ManageRubbish")
UserName_RegDisabled=Application("UserName_RegDisabled")
Point=Application("Point")
pPoint=Application("pPoint")
End Sub
Sub WebCss()
set cssrs=conn.execute("select * from JOB_Skin where IsDefault="&FR_HR_True&" and IsDefaultInProject="&FR_HR_True&"")
if not cssrs.eof then
Application("MainWebCss")=cssrs("filename")
else
Response.Write("ʽ!")
end if
cssrs.close
set cssrs=nothing
MainWebCss=Application("MainWebCss")
End Sub
Function Root_Dir(f_Path)
Dim All_Path
If f_Path <> "" Then
If Right(f_Path,1)="/" Then
All_Path = f_Path
Else
All_Path = f_Path & "/"
End If
End If
Root_Dir = All_Path
End Function
Function Add_Root_Dir(f_Path)
Dim f_All_Path
If Left(f_Path,1)="/" Then
f_All_Path = FR_ROOT_DIR & f_Path
Else
f_All_Path = FR_ROOT_DIR & "/" & f_Path
End If
If Trim(FR_ROOT_DIR) <> "" Then
f_All_Path = "/" & f_All_Path
End If
Add_Root_Dir = f_All_Path
End Function
Function WebLock(Lockok)
Dim Filename,fso,fout
Filename = Server.MapPath(InstallDir&"WebLock.lock")
Set fso = CreateObject(FR_HR_FSO)
If Lockok<>0 Then
If Not fso.FileExists(Filename) Then
Set fout = fso.CreateTextFile(Filename)
fout.WriteLine ""&SiteUrl&InstallDir&",WebLocked"
fout.close
set fout = nothing
Else
Exit Function
End If
Else
If fso.FileExists(Filename) Then
fso.deletefile(Filename)
End If
End If
Set fso = nothing
End Function
'if cint("0"&Request.Cookies("memorize"))>0 then
' for each temp in request.Cookies(FRHRCMS)
' Response.Cookies(FRHRCMS&"back")(temp)=request.Cookies(FRHRCMS)(temp)
' Next
' Response.Cookies(FRHRCMS&"back").expires=DateAdd("d",cint("0"&Request.Cookies("memorize")),Date)
' Response.Cookies("memorize")=0
'End If
'If request.Cookies(FRHRCMS)="" then
' for each temp in request.Cookies(FRHRCMS&"back")
' Response.Cookies(FRHRCMS)(temp)=request.Cookies(FRHRCMS&"back")(temp)
' Next
' utemp=Trim(""&request.Cookies(FRHRCMS)("user_login"))
' utype=Trim(""&request.Cookies(FRHRCMS)("user_type"))
' if utype="cmember" Then
' typeid=2
' else
' typeid=1
' End if
' if utemp<>"" Then conn.execute("update job_Member set Member_logindate=getdate() where Member_typeid="&typeid&" and Member_login='"&utemp&"'")
'End If
'if Trim(""&request.Cookies(FRHRCMS)("Member_id"))<>"" Then conn.execute("update job_Member set Member_logindate=getdate() where Member_id="&request.Cookies(FRHRCMS)("Member_id")&"")
%>
<%
Dim FrSql_Post,FrSql_Get,FrSql_In,FrSql_Inf,FrSql_Xh,Kill_IP,WriteSql
'ԶҪ˵ִ, "|" ָ
FrSql_In = "exec|insert|select|delete|update|count|chr(|char(|master|truncate|declare|cast"
Kill_IP=True
WriteSql=True
FrSql_Inf = split(FrSql_In,"|")
Sub SQLin()
On Error Resume Next
'ֹPostע
If Request.Form<>"" Then
For Each FrSql_Post In Request.Form
For FrSql_Xh=0 To Ubound(FrSql_Inf)
If Instr(LCase(Request.Form(FrSql_Post)),FrSql_Inf(FrSql_Xh))<>0 Then
If WriteSql=True Then
conn.Execute("insert into job_errlog(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_time,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','POST','"&FrSql_Post&"','"&now()&"','"&replace(Request.Form(FrSql_Post),"'","''")&"')")
conn.close
Set conn = Nothing
End If
Response.Write ""
Response.end
End If
Next
Next
End If
'ֹGetע
If Request.QueryString<>"" Then
For Each FrSql_Get In Request.QueryString
For FrSql_Xh=0 To Ubound(FrSql_Inf)
If Instr(LCase(Request.QueryString(FrSql_Get)),FrSql_Inf(FrSql_Xh))<>0 Then
If WriteSql=True Then
conn.Execute("insert into job_errlog(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_time,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&FrSql_Get&"','"&now()&"','"&replace(Request.QueryString(FrSql_Get),"'","''")&"')")
conn.close
Set conn = Nothing
End If
Response.Write ""
Response.end
End If
Next
Next
End If
'cookiesע
If Request.cookies<>"" Then
For Each FrSql_Post1 In Request.cookies
For FrSql_Xh=0 To Ubound(FrSql_Inf)
If Instr(LCase(Request.Form(FrSql_Post1)),FrSql_Inf(FrSql_Xh))<>0 Then
If WriteSql=True Then
conn.Execute("insert into job_errlog(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','COOKIES','"&FrSql_Post1&"','"&replace(Request.Form(FrSql_Post1),"'","''")&"')")
conn.close
Set conn = Nothing
End If
Response.Write ""
Response.end
End If
Next
Next
End if
End Sub
Sub SQLKillip()
If Kill_IP=True Then
Dim Sqlin_IP,rsKill_IP,Kill_IPsql
Sqlin_IP=Request.ServerVariables("REMOTE_ADDR")
Kill_IPsql="select Sqlin_IP from Job_Errlog where Sqlin_IP='"&Sqlin_IP&"' and Sqlin_Killip="&FR_HR_True&""
Set rsKill_IP=conn.execute(Kill_IPsql)
If Not(rsKill_IP.eof or rsKill_IP.bof) Then
Response.write ""
Response.End
End If
rsKill_IP.close
Set rsKill_IP=Nothing
End If
End Sub
%>
<%'ֹIPʱվ
Call SQLKillip()
'If FR_HR_Sql = True then Call SQLin()%><%
dim pagetit(15),errtit(10)
pagetit(0)="û"
pagetit(1)="ûͼƬ"
pagetit(2)="ûϢ"
pagetit(3)="ûͼƬ"
pagetit(4)="ҳ"
pagetit(5)="һҳ"
pagetit(6)="һҳ"
pagetit(7)="βҳ"
pagetit(8)="ҳ"
pagetit(9)="ҳ"
pagetit(10)="һ"
pagetit(11)="¼"
pagetit(12)="ҳ"
pagetit(13)="ÿҳ"
pagetit(14)="¼"
pagetit(15)="ͳɹ!"
errtit(0)="д"
errtit(1)=": дȷ"
errtit(2)="Ϣ"
errtit(3)="Ŀԭ"
errtit(4)=""
errtit(5)="ȵ¼"
errtit(6)=": д"
%><%
Class Cls_vbsPage
Private oConn 'Ӷ
Private iPagesize 'ÿҳ¼
Private sPageName 'ַҳ
Private sDbType
'ݿ,ACΪaccess,MSSQLΪSQL SERVER2000洢̰,MYSQLΪmysql,PGSQLΪPostGreSql
Private iRecType '¼(>0Ϊȡֵٸ߹̶ֵ,0ִcountôcookies,-1ִcountcookies)
Private sJsUrl 'Cls_jsPage.js·
Private sField 'ֶ
Private sTable '
Private sCondition ',Ҫwhere
Private sOrderBy ',Ҫorder by,Ҫascdesc
Private sPkey ',д
Private iRecCount
'================================================================
' Class_Initialize ijʼ
'================================================================
Private Sub Class_Initialize
iPageSize=10
sPageName="Page"
sDbType="AC"
iRecType=0
sJsUrl=""
sField=" * "
End Sub
'================================================================
' Conn õݿӶ
'================================================================
Public Property Set Conn(ByRef Value)
Set oConn=Value
End Property
'================================================================
' PageSize ÿһҳ¼,Ĭ10¼
'================================================================
Public Property Let PageSize(ByVal intPageSize)
iPageSize=CheckNum(intPageSize,0,0,iPageSize,0)
End Property
'================================================================
' PageName ַҳ
'================================================================
Public Property Let PageName(ByVal strPageName)
sPageName=IIf(Len(strPageName)<1,sPageName,strPageName)
End Property
'================================================================
' DbType õݿ
'================================================================
Public Property Let DbType(ByVal strDbType)
sDbType=UCase(IIf(Len(strDbType)<1,sDbType,strDbType))
End Property
'================================================================
' RecType ȡ¼(>0Ϊֵ߹̶ֵ,0ִcountôcookies,-1ִcountcookies)
'================================================================
Public Property Let RecType(ByVal intRecType)
iRecType=CheckNum(intRecType,0,0,iRecType,0)
End Property
'================================================================
' JsUrl ȡCls_jsPage.js·
'================================================================
Public Property Let JsUrl(ByVal strJsUrl)
sJsUrl=strJsUrl
End Property
'================================================================
' Pkey ȡ
'================================================================
Public Property Let Pkey(ByVal strPkey)
sPkey=strPkey
End Property
'================================================================
' Field ȡֶ
'================================================================
Public Property Let Field(ByVal strField)
sField=IIf(Len(strField)<1,sField,strField)
End Property
'================================================================
' Table ȡñ
'================================================================
Public Property Let Table(ByVal strTable)
sTable=strTable
End Property
'================================================================
' Condition ȡ
'================================================================
Public Property Let Condition(ByVal strCondition)
s=strCondition
sCondition=IIf(Len(s)>2," WHERE "&s,"")
End Property
'================================================================
' OrderBy ȡ
'================================================================
Public Property Let OrderBy(ByVal strOrderBy)
s=strOrderBy
sOrderBy=IIf(Len(s)>4," ORDER BY "&s,"")
End Property
'================================================================
' RecCount ¼
'================================================================
Public Property Get RecCount()
If iRecType>0 Then
i=iRecType
Elseif iRecType=0 Then
i=CheckNum(Request.Cookies("ShowoPage")(sPageName),1,0,0,0)
s=Trim(Request.Cookies("ShowoPage")("sCond"))
IF i=0 OR sCondition<>s Then
i=oConn.Execute("SELECT COUNT("&sPkey&") FROM "&sTable&" "&sCondition,0,1)(0)
Response.Cookies("ShowoPage")(sPageName)=i
Response.Cookies("ShowoPage")("sCond")=sCondition
End If
Else
i=oConn.Execute("SELECT COUNT("&sPkey&") FROM "&sTable&" "&sCondition,0,1)(0)
End If
iRecCount=i
RecCount=i
End Property
'================================================================
' ResultSet طҳļ¼
'================================================================
Public Property Get ResultSet()
s=Null
'¼
i=iRecCount
'ǰҳ
If i>0 Then
iPageCount=Abs(Int(-Abs(i/iPageSize)))'ҳ
iPageCurr=CheckNum(Request.QueryString(sPageName),1,1,1,iPageCount)'ǰҳ
Select Case sDbType
Case "MSSQL" 'sqlserver2000ݿ洢̰
Set Rs=server.CreateObject("Adodb.RecordSet")
Set Cm=Server.CreateObject("Adodb.Command")
Cm.CommandType=4
Cm.ActiveConnection=oConn
Cm.CommandText="sp_Util_Page"
Cm.parameters(1)=i
Cm.parameters(2)=iPageCurr
Cm.parameters(3)=iPageSize
Cm.parameters(4)=sPkey
Cm.parameters(5)=sField
Cm.parameters(6)=sTable
Cm.parameters(7)=Replace(sCondition," WHERE ","")
Cm.parameters(8)=Replace(sOrderBy," ORDER BY ","")
Rs.CursorLocation=3
Rs.LockType=1
Rs.Open Cm
Case "MYSQL" 'MYSQLݿ
ResultSet_Sql="SELECT "&sField&" FROM "&sTable&" "&sCondition&" "&sOrderBy&" LIMIT "&(iPageCurr-1)*iPageSize&","&iPageSize
Set Rs=oConn.Execute(ResultSet_Sql)
Case Else 'ԭʼķ(ACͬ)
Set Rs = Server.CreateObject ("Adodb.RecordSet")
ResultSet_Sql="SELECT "&sField&" FROM "&sTable&" "&sCondition&" "&sOrderBy
Rs.Open ResultSet_Sql,oConn,1,1,&H0001
Rs.AbsolutePosition=(iPageCurr-1)*iPageSize+1
End Select
s=Rs.GetRows(iPageSize)
Rs.close
Set Rs=Nothing
End If
ResultSet=s
End Property
'================================================================
' Class_Terminate ע
'================================================================
Private Sub Class_Terminate()
If IsObject(oConn) Then Set oConn=Nothing
End Sub
'================================================================
' :ַ,ǷСֵ,Ƿֵ,Сֵ(Ĭ),ֵ
'================================================================
Private Function CheckNum(ByVal strStr,ByVal blnMin,ByVal blnMax,ByVal intMin,ByVal intMax)
Dim i,s,iMi,iMa
s=Left(Trim(""&strStr),32):iMi=intMin:iMa=intMax
If IsNumeric(s) Then
i=CDbl(s)
i=IIf(blnMin=1 And iiMa,iMa,i)
Else
i=iMi
End If
CheckNum=i
End Function
'================================================================
' :ж
'================================================================
Private Function IIf(ByVal blnBool,ByVal strStr1,ByVal strStr2)
Dim s
If blnBool Then
s=strStr1
Else
s=strStr2
End If
IIf=s
End Function
'================================================================
' ҳ
'================================================================
Public Sub ShowPage(pagetype)%>
<%End Sub
End Class%><%
'On Error Resume Next
Response.Buffer = True
dim startime
startime=timer()
Const FR_HR_Edition = 2
Const FR_HR_DataBaseType = 1 'ϵͳݿͣ"1"ΪMS SQL2000ݿ⣬"0"ΪMS ACCESS 2000ݿ
Const FR_HR_DomainRoot = "138job.com" 'վ
Const FRHRCMS = "FRHRCMS20"
Const FR_HR_Site = "1" 'վӵƣ1Ϊվ
Const FR_HR_Site_city = "" 'վӵƣΪȫ
Const FR_HR_Site_industry = "" 'ҵID
Const FR_HR_Site_industry_ID = "" 'ҵСID
Const FR_HR_Sql = True 'Ƿ÷SQLע빦ܣTrueΪãFalseΪ
Const FClose=false 'άرյ¼ע
Const FR_SMS_Type=2 '1-() 2-()
'*******************ļϴĿ¼ʼ*******************
Const FR_UPFILES_DIR = "UpFiles" 'ļϴĿ¼
'********************ʼ********************
Const FR_HR_Dict = "Scripting.Dictionary" 'Scripting.Dictionary
Const FR_HR_Fso = "Scripting.FileSystemObject" 'Scripting.FileSystemObject
Const FR_HR_Stream = "Adodb.Stream" 'Adodb.Stream
Const FR_HR_Rs = "Adodb.RecordSet" 'Adodb.RecordSet
Const FR_HR_Http = "Microsoft.XMLHTTP" 'Microsoft.XMLHTTP
Const FR_HR_XmlHttp = "MSXML2.XMLHTTP" 'MSXML2.XMLHTTP
Const FR_HR_Conn = "Adodb.Connection" 'Adodb.Connection
Const FR_HR_JMail = "JMail.SMTPMail" 'Jmail
Const FR_HR_Cdonts = "CDONTS.NewMail" 'CDONTS
Const FR_HR_Persits = "Persits.MailSender" 'ASPEMAIL
Const FR_HR_Easymail = "easymail.MailSend" 'WebEasyMail
Const FR_HR_SaFileUp = "SoftArtisans.FileUp" 'SA-FileUp ļϴ
Const FR_HR_SaFileManager = "SoftArtisans.FileManager" 'SoftArtisans ļ
Const FR_HR_Lyf = "LyfUpload.UploadFile" 'Ʒļϴ
Const FR_HR_PU = "Persits.Upload.1" 'ASPUpload ļϴ
Const FR_HR_SaImage = "SoftArtisans.ImageGen" 'SA ͼд
Const FR_HR_W3Image = "W3Image.Image" 'Dimac ͼд
Const FR_HR_PJ = "Persits.Jpeg" 'ASPJpeg
'****************************************
Dim Database,DatabaseName,Password,Username,HostIP
'ACCESSݿ⣬ĺݿļ
Database = "database/jobcom.mdb" 'ACCESSݿļ
'SQLݿ⣬ĺݿѡ
Username = "lqjobcom" 'SQLݿû
Password = "fu]js1_S2fs*sxo)9" 'SQLݿû
DatabaseName = "dbjobcom" 'SQLݿ
HostIP = "SQLLISTENER" 'SQLIPַأָվݿͬһ̨ϣá(local)127.0.0.1DZָվݿֱڲͬķϣдݿʵIP
Dim Conn, ConnStr, FR_HR_True, FR_HR_False, FR_HR_Now, FR_HR_d,ConnMr,ConnBBS
Dim SiteName, SiteTitle, SiteUrl, SiteKey, LogoUrl, Copyright, Meta_Keywords, Meta_Description
Dim ContactMan, ContactAddress, ContactPhone, ContactFax
Dim MailObject, MailServer, MailServerUserName, MailServerPassWord, MailDomain
Dim WebmasterName, WebmasterEmail, InstallDir, AdminDir, CreateHTML, HTMLPath,DefaulText,CreateTime
Dim AdminRegCheckReg, AdminPerCheckReg, AdminComCheckReg, AdminSchCheckReg, AdminTraCheckReg, AdminPicCheckReg, AdminLogCheckReg, AdminHirCheckReg, AdminResCheckReg
Dim EmailRegOfRegCheck, EmailPerOfRegCheck, EmailComOfRegCheck, EmailSchOfRegCheck, EmailTraOfRegCheck
Dim emailsendregflag, emailsendperflag, emailsendcomflag, emailsendschflag, emailsendtraflag,Smssend
Dim GuestBook_EnableVisitor, GuestBook_ManageRubbish, UserName_RegDisabled, Point,UpfilesType,ComPositionId, pPoint
Dim MainWebCss
Call OpenConn
Call GetSiteConfig
Call WebCss()
'ݿ
Sub OpenConn()
On Error Resume Next
If FR_HR_DataBaseType = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & Username & "; Password = " & Password & "; Initial Catalog = " & DatabaseName & "; Data Source = " & HostIP & ";"
Else
ConnStr = "DBQ=" + Server.MapPath(Add_Root_Dir(Database)) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
ConnStr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(Add_Root_Dir(Database))
End If
Set Conn = Server.CreateObject(FR_HR_Conn)
Conn.open ConnStr
conn.DefaultDatabase = DatabaseName
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "
Բ緱æڴҳʱжϡҪģѾ֪ͨ138ģܿܽԳˢ¸ҳԺʡ[JOB-2020]
"
Response.End
End If
If FR_HR_DataBaseType = 1 Then
FR_HR_True = "1"
FR_HR_False = "0"
FR_HR_Now = "getdate()"
FR_HR_d = "d"
Else
FR_HR_True = "True"
FR_HR_False = "False"
FR_HR_Now = "Now()"
FR_HR_d = "'d'"
End If
End Sub
'رݿ
Sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
End Sub
Sub OpenMrConn()
On Error Resume Next
ConnMrStr = "Provider = Sqloledb; User ID =dbmrcom; Password = Hu02Nxlqt37HjncQ62zX6; Initial Catalog = dbmrcom; Data Source = " & HostIP & ";"
Set ConnMr = Server.CreateObject(FR_HR_Conn)
ConnMr.open ConnMrStr
If Err Then
Err.Clear
Set ConnMr = Nothing
Response.Write "
Բ緱æڴҳʱжϡҪģѾ֪ͨ138ģܿܽ[MR01]
"
Response.End
End If
End Sub
'رMrݿ
Sub CloseMrConn()
On Error Resume Next
If IsObject(ConnMr) Then
ConnMr.Close
Set ConnMr = Nothing
End If
End Sub
'bbsݿ
Sub OpenBbsConn()
On Error Resume Next
ConnBbsStr = "Provider = Sqloledb; User ID =dbbbscom; Password = ksj82jan7Balj3JAZq; Initial Catalog = dbbbscom; Data Source = " & HostIP & ";"
Set ConnBBS = Server.CreateObject(FR_HR_Conn)
ConnBBS.open ConnBbsStr
If Err Then
Err.Clear
Set ConnBBS = Nothing
Response.Write "
Բ緱æڴҳʱжϡҪģѾ֪ͨ138ģܿܽ[BBS]
"
Response.End
End If
End Sub
'رbbsݿ
Sub CloseBbsConn()
On Error Resume Next
If IsObject(ConnBBS) Then
ConnBBS.Close
Set ConnBBS = Nothing
End If
End Sub
'ȡϵͳò
Sub GetSiteConfig()
On Error Resume Next
Dim rsConfig
Set rsConfig = Conn.Execute("select * from JOB_Siteconfig where SiteID="&FR_HR_Site)
If Err Then
Err.Clear
Conn.Close
Set Conn = Nothing
Response.Write "
ԲϵͳæˢһαҳԺ
"
Response.End
End If
If RsConfig.bof And RsConfig.EOF Then
RsConfig.Close
Set RsConfig = Nothing
Response.Write "
ԲϵͳæˢһαҳԺ
"
Response.End
Else
'Ϣ2007612Mr.Hou
Application("SiteName")=rsconfig("SiteName") 'վ
Application("SiteTitle")=rsconfig("SiteTitle") 'վ
Application("SiteUrl")=rsconfig("SiteUrl") 'վURLַ
Application("SiteKey")=rsconfig("SiteKey") 'վȨ
Application("LogoUrl")=rsconfig("LogoUrl") 'վLOGOŵַԵַ
Application("Copyright")=rsconfig("Copyright") 'վȨϢǿ(̨)
Application("Meta_Keywords")=rsconfig("Meta_Keywords") 'վؼ
Application("Meta_Description")=rsconfig("Meta_Description") 'վ
Application("ContactMan")=rsconfig("ContactMan") 'ϵ
Application("ContactAddress")=rsconfig("ContactAddress") 'ϵַԭֶContactAdressΪContactAddress
Application("ContactPhone")=rsconfig("ContactPhone") '绰
Application("ContactFax")=rsconfig("ContactFax") '
Application("MailObject")=rsconfig("MailObject") 'ʼڷϵͳʼ
Application("MailServer")=rsconfig("MailServer") 'ʼ
Application("MailServerUserName")=rsconfig("MailServerUserName") 'û
Application("MailServerPassWord")=rsconfig("MailServerPassWord") '
Application("MailDomain")=rsconfig("MailDomain") 'ʼ
Application("WebmasterName")=rsconfig("WebmasterName") 'վ
Application("WebmasterEmail")=rsconfig("WebmasterEmail") 'վ
Application("InstallDir")=rsconfig("InstallDir") 'ϵͳװĿ¼
Application("AdminDir")=rsconfig("AdminDir") 'ԱĿ¼
Application("CreateHTML")=rsconfig("CreateHTML")
Application("HTMLPath")=rsconfig("HTMLPath")
Application("DefaulText")=rsconfig("DefaulText")
Application("CreateTime")=rsconfig("CreateTime")
Application("UpfilesType")=rsconfig("UpfilesType")
Application("ComPositionId")=rsconfig("ComPositionId")
Application("AdminRegCheckReg")=rsconfig("AdminRegCheckReg") 'ԱעǷ
Application("AdminPerCheckReg")=rsconfig("AdminPerCheckReg")
Application("AdminComCheckReg")=rsconfig("AdminComCheckReg")
Application("AdminSchCheckReg")=rsconfig("AdminSchCheckReg")
Application("AdminTraCheckReg")=rsconfig("AdminTraCheckReg")
Application("AdminPicCheckReg")=rsconfig("AdminPicCheckReg")
Application("AdminLogCheckReg")=rsconfig("AdminLogCheckReg")
Application("AdminHirCheckReg")=rsconfig("AdminHirCheckReg")
Application("AdminResCheckReg")=rsconfig("AdminResCheckReg")
Application("EmailRegOfRegCheck")=rsconfig("EmailRegOfRegCheck") 'עʼ
Application("EmailPerOfRegCheck")=rsconfig("EmailPerOfRegCheck")
Application("EmailComOfRegCheck")=rsconfig("EmailComOfRegCheck")
Application("EmailSchOfRegCheck")=rsconfig("EmailSchOfRegCheck")
Application("EmailTraOfRegCheck")=rsconfig("EmailTraOfRegCheck")
Application("emailsendregflag")=rsconfig("emailsendregflag") 'Ƿ
Application("emailsendperflag")=rsconfig("emailsendperflag")
Application("emailsendcomflag")=rsconfig("emailsendcomflag")
Application("emailsendschflag")=rsconfig("emailsendschflag")
Application("emailsendtraflag")=rsconfig("emailsendtraflag")
Application("Smssend")=rsconfig("Smssend")
Application("GuestBook_EnableVisitor")=rsconfig("GuestBook_EnableVisitor") 'Ƿ
Application("GuestBook_ManageRubbish")=rsconfig("GuestBook_ManageRubbish") 'Ե
Application("UserName_RegDisabled")=rsconfig("UserName_RegDisabled") 'ֹעû
Application("Point")=rsconfig("Point")
Application("pPoint")=rsconfig("pPoint")
rsConfig.Close
Set rsConfig = Nothing
End If
SiteName=Application("SiteName")
SiteTitle=Application("SiteTitle")
SiteUrl=Application("SiteUrl")
SiteKey=Application("SiteKey")
LogoUrl=Application("LogoUrl")
Copyright=Application("Copyright")
Meta_Keywords=Application("Meta_Keywords")
Meta_Description=Application("Meta_Description")
ContactMan=Application("ContactMan")
ContactAddress=Application("ContactAddress")
ContactPhone=Application("ContactPhone")
ContactFax=Application("ContactFax")
Copyright=Replace(Copyright,"{$SiteName}",SiteName)
Copyright=Replace(Copyright,"{$ContactAddress}",ContactAddress)
Copyright=Replace(Copyright,"{$ContactMan}",ContactMan)
Copyright=Replace(Copyright,"{$ContactPhone}",ContactPhone)
Copyright=Replace(Copyright,"{$ContactFax}",ContactFax)
MailObject=Application("MailObject")
MailServer=Application("MailServer")
MailServerUserName=Application("MailServerUserName")
MailServerPassWord=Application("MailServerPassWord")
MailDomain=Application("MailDomain")
WebmasterName=Application("WebmasterName")
WebmasterEmail=Application("WebmasterEmail")
InstallDir=Application("InstallDir")
AdminDir=Application("AdminDir")
CreateHTML=Application("CreateHTML")
HTMLPath=Application("HTMLPath")
DefaulText=Application("DefaulText")
CreateTime=Application("CreateTime")
UpfilesType=Application("UpfilesType")
ComPositionId=Application("ComPositionId")
AdminRegCheckReg=Application("AdminRegCheckReg")
AdminPerCheckReg=Application("AdminPerCheckReg")
AdminComCheckReg=Application("AdminComCheckReg")
AdminSchCheckReg=Application("AdminSchCheckReg")
AdminTraCheckReg=Application("AdminTraCheckReg")
AdminPicCheckReg=Application("AdminPicCheckReg")
AdminLogCheckReg=Application("AdminLogCheckReg")
AdminHirCheckReg=Application("AdminHirCheckReg")
AdminResCheckReg=Application("AdminResCheckReg")
Smssend=Application("Smssend")
EmailRegOfRegCheck=Application("EmailRegOfRegCheck")
EmailPerOfRegCheck=Application("EmailPerOfRegCheck")
EmailComOfRegCheck=Application("EmailComOfRegCheck")
EmailSchOfRegCheck=Application("EmailSchOfRegCheck")
EmailTraOfRegCheck=Application("EmailTraOfRegCheck")
emailsendregflag=Application("emailsendregflag")
emailsendperflag=Application("emailsendperflag")
emailsendcomflag=Application("emailsendcomflag")
emailsendschflag=Application("emailsendschflag")
emailsendtraflag=Application("emailsendtraflag")
GuestBook_EnableVisitor=Application("GuestBook_EnableVisitor")
GuestBook_ManageRubbish=Application("GuestBook_ManageRubbish")
UserName_RegDisabled=Application("UserName_RegDisabled")
Point=Application("Point")
pPoint=Application("pPoint")
End Sub
Sub WebCss()
set cssrs=conn.execute("select * from JOB_Skin where IsDefault="&FR_HR_True&" and IsDefaultInProject="&FR_HR_True&"")
if not cssrs.eof then
Application("MainWebCss")=cssrs("filename")
else
Response.Write("ʽ!")
end if
cssrs.close
set cssrs=nothing
MainWebCss=Application("MainWebCss")
End Sub
Function Root_Dir(f_Path)
Dim All_Path
If f_Path <> "" Then
If Right(f_Path,1)="/" Then
All_Path = f_Path
Else
All_Path = f_Path & "/"
End If
End If
Root_Dir = All_Path
End Function
Function Add_Root_Dir(f_Path)
Dim f_All_Path
If Left(f_Path,1)="/" Then
f_All_Path = FR_ROOT_DIR & f_Path
Else
f_All_Path = FR_ROOT_DIR & "/" & f_Path
End If
If Trim(FR_ROOT_DIR) <> "" Then
f_All_Path = "/" & f_All_Path
End If
Add_Root_Dir = f_All_Path
End Function
Function WebLock(Lockok)
Dim Filename,fso,fout
Filename = Server.MapPath(InstallDir&"WebLock.lock")
Set fso = CreateObject(FR_HR_FSO)
If Lockok<>0 Then
If Not fso.FileExists(Filename) Then
Set fout = fso.CreateTextFile(Filename)
fout.WriteLine ""&SiteUrl&InstallDir&",WebLocked"
fout.close
set fout = nothing
Else
Exit Function
End If
Else
If fso.FileExists(Filename) Then
fso.deletefile(Filename)
End If
End If
Set fso = nothing
End Function
'if cint("0"&Request.Cookies("memorize"))>0 then
' for each temp in request.Cookies(FRHRCMS)
' Response.Cookies(FRHRCMS&"back")(temp)=request.Cookies(FRHRCMS)(temp)
' Next
' Response.Cookies(FRHRCMS&"back").expires=DateAdd("d",cint("0"&Request.Cookies("memorize")),Date)
' Response.Cookies("memorize")=0
'End If
'If request.Cookies(FRHRCMS)="" then
' for each temp in request.Cookies(FRHRCMS&"back")
' Response.Cookies(FRHRCMS)(temp)=request.Cookies(FRHRCMS&"back")(temp)
' Next
' utemp=Trim(""&request.Cookies(FRHRCMS)("user_login"))
' utype=Trim(""&request.Cookies(FRHRCMS)("user_type"))
' if utype="cmember" Then
' typeid=2
' else
' typeid=1
' End if
' if utemp<>"" Then conn.execute("update job_Member set Member_logindate=getdate() where Member_typeid="&typeid&" and Member_login='"&utemp&"'")
'End If
'if Trim(""&request.Cookies(FRHRCMS)("Member_id"))<>"" Then conn.execute("update job_Member set Member_logindate=getdate() where Member_id="&request.Cookies(FRHRCMS)("Member_id")&"")
%>
<%
Dim FrSql_Post,FrSql_Get,FrSql_In,FrSql_Inf,FrSql_Xh,Kill_IP,WriteSql
'ԶҪ˵ִ, "|" ָ
FrSql_In = "exec|insert|select|delete|update|count|chr(|char(|master|truncate|declare|cast"
Kill_IP=True
WriteSql=True
FrSql_Inf = split(FrSql_In,"|")
Sub SQLin()
On Error Resume Next
'ֹPostע
If Request.Form<>"" Then
For Each FrSql_Post In Request.Form
For FrSql_Xh=0 To Ubound(FrSql_Inf)
If Instr(LCase(Request.Form(FrSql_Post)),FrSql_Inf(FrSql_Xh))<>0 Then
If WriteSql=True Then
conn.Execute("insert into job_errlog(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_time,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','POST','"&FrSql_Post&"','"&now()&"','"&replace(Request.Form(FrSql_Post),"'","''")&"')")
conn.close
Set conn = Nothing
End If
Response.Write ""
Response.end
End If
Next
Next
End If
'ֹGetע
If Request.QueryString<>"" Then
For Each FrSql_Get In Request.QueryString
For FrSql_Xh=0 To Ubound(FrSql_Inf)
If Instr(LCase(Request.QueryString(FrSql_Get)),FrSql_Inf(FrSql_Xh))<>0 Then
If WriteSql=True Then
conn.Execute("insert into job_errlog(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_time,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&FrSql_Get&"','"&now()&"','"&replace(Request.QueryString(FrSql_Get),"'","''")&"')")
conn.close
Set conn = Nothing
End If
Response.Write ""
Response.end
End If
Next
Next
End If
'cookiesע
If Request.cookies<>"" Then
For Each FrSql_Post1 In Request.cookies
For FrSql_Xh=0 To Ubound(FrSql_Inf)
If Instr(LCase(Request.Form(FrSql_Post1)),FrSql_Inf(FrSql_Xh))<>0 Then
If WriteSql=True Then
conn.Execute("insert into job_errlog(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','COOKIES','"&FrSql_Post1&"','"&replace(Request.Form(FrSql_Post1),"'","''")&"')")
conn.close
Set conn = Nothing
End If
Response.Write ""
Response.end
End If
Next
Next
End if
End Sub
Sub SQLKillip()
If Kill_IP=True Then
Dim Sqlin_IP,rsKill_IP,Kill_IPsql
Sqlin_IP=Request.ServerVariables("REMOTE_ADDR")
Kill_IPsql="select Sqlin_IP from Job_Errlog where Sqlin_IP='"&Sqlin_IP&"' and Sqlin_Killip="&FR_HR_True&""
Set rsKill_IP=conn.execute(Kill_IPsql)
If Not(rsKill_IP.eof or rsKill_IP.bof) Then
Response.write ""
Response.End
End If
rsKill_IP.close
Set rsKill_IP=Nothing
End If
End Sub
%>
<%'ֹIPʱվ
Call SQLKillip()
'If FR_HR_Sql = True then Call SQLin()%>
关注我们，不错过好资讯