<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../../manage/conn/HL_Datalink.asp"-->
<%
'请确认include file的路径正确根目录下为默认，二级目录下请更改为../../manage/conn/HL_DataLink.asp
Const RefreshTime = 1                         
Const HLIntegration = True      'HLIntergration值：整合为True,还原整合设置为False 
Const HLAdminIntegration = True 'True为后台整合设置，Flase为还原后台整合设置                     
Const link=1'本地整合设置为1，如果与恒浪整合系统不在同一服务器下请更改为2，并相应手动设置密钥,并删除<!-- # include file="../manage/conn/HL_Datalink.asp"-->否则会出错
Dim SecurityKey,HL_Url,oBlog_Url,AdminSecurityKey,Manage_Url
Manage_Url="manage/"
If link=1 then
'若Managey路径为“http://www.jsp163.com/XXXX/manage”则Manage_Url="XXXX/manage/"
'若Managey路径为“http://www.jsp163.com/manage”则Manage_Url="manage/"
'以下是不在同一服务器下的设置
Else
SecurityKey="testtesttesttestlong"
HL_Url="http://127.0.0.1/"
AdminSecurityKey="testtesttesttest"
end if
Dim ComeUrl
ComeUrl=Request.ServerVariables("HTTP_REFERER")
If Instr(ComeUrl,"Users/UserIndex.asp")>0 Then ComeUrl=Replace(ComeUrl,"Users/UserIndex.asp","")
If Instr(ComeUrl,"Users/main_left.asp")>0 Then ComeUrl=Replace(ComeUrl,"Users/main_left.asp","")
Sub HL_REG()'用户注册
Response.Redirect Hl_Url&Manage_Url&"User_Reg.asp?ComeUrl="&ComeUrl
End Sub
Sub HL_GetPassword()'取回密码
Response.Redirect Hl_Url&Manage_Url&"User_GetPassword.asp?ComeUrl="&ComeUrl
End Sub
Sub HL_Logout()
Response.Redirect Hl_Url&Manage_Url&"User_Logout.asp?ComeUrl="&ComeUrl
End Sub
Sub HL_ModifyPWD()
Response.Redirect Hl_Url&Manage_Url&"User_ModifyPWD.asp?ComeUrl="&ComeUrl
End Sub
Sub HL_MofifyPassport()
Response.Redirect Hl_Url&Manage_Url&"User_Passport.asp?ComeUrl="&ComeUrl
End Sub
%>
<%
'==================================================
'恒浪网站整合管理系统V4.05 请保留此版权信息~
'Powered by HoWave.net
'
'邮箱: websky888@126.com		
'ＱＱ: 615939753				
'网站: www.howave.net			www.jsp163.com
'论坛: bbs.howave.net			bbs.jsp163.com
'
'Copyright (C) 2006 HoWave.Net All Rights Reserved.
'==================================================
%>
