<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rskx = Server.CreateObject("ADODB.Recordset")
Conn.Open "File Name=c:\west.udl"
Sqlkx = "Select * From kuaixun Where kxlevel=2 Order By kxid Desc"
rskx.Open Sqlkx ,Conn,1,1
%>
<%
If Request.ServerVariables("Request_Method")="POST" Then
hotel=request("hotel")
hotelname=request("hotelname")
city=request("city")
response.redirect "http://www.west-holiday.cn/hotel/hotel-list.asp?quyu="&city&"&sheng="&hotel&"&otelname="&hotelname
End If
%>
南湖国旅·西部假期-西部旅游专家 电子画册
<%
'添加访问记录
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "File Name=c:\west.udl"
Set rsVist = Server.CreateObject("ADODB.Recordset")
'if session("guest")="" then
sIp=request.servervariables("remote_addr")
sIP1=""
sIP2=""
sIP3=""
sIP4=""
nLoop=0
if instr(sIp,".")>0 then
while nLoop<4
nPos=instr(sIp,".")
nLength=len(sIp)
if nLoop=0 then
sIP1=left(sIp,nPos-1)
sIP=mid(sIp,nPos+1,nLength-nPos)
if len(sIP1)=1 then
sIP1="00"&sIP1
end if
if len(sIP1)=2then
sIP1="0"&sIP1
end if
' response.write sIP&"A"
end if
if nLoop=1 then
sIP2=left(sIp,nPos-1)
sIP=mid(sIp,nPos+1,nLength-nPos)
if len(sIP2)=1 then
sIP2="00"&sIP2
end if
if len(sIP2)=2 then
sIP2="0"&sIP2
end if
' response.write sIP&sIP2&"B"
end if
if nLoop=2 then
sIP3=left(sIp,nPos-1)
sIP=mid(sIp,nPos+1,nLength-nPos)
if len(sIP3)=1 then
sIP3="00"&sIP3
end if
if len(sIP3)=2 then
sIP3="0"&sIP3
end if
' response.write sIP&sIP3&"C"
end if
if nLoop=3 then
if len(sIp)=1 then
sIP4="00"&sIP
end if
if len(sIp)=2 then
sIP4="0"&sIP
end if
if len(sIp)=3 then
sIP4=sIP
end if
' response.write sIP&sIP4&"D"
sIp=sIp1&"."&sIp2&"."&sIp3&"."&sIp4
end if
nLoop=nLoop+1
wend
end if
sName=request.ServerVariables("remote_host")
sFrom=request.ServerVariables("HTTP_REFERER")
session("guest")="guest"
sql="insert into avi_visit(avi_address,avi_datetime,avi_hostname,avi_from,avi_flag) values ('"&sIp&"',"&"getdate()"&",'"&sName&"','"&sFrom&"','"&"首页"&"')"
rsVist.open sql,cn,1,1
'end if
%>
<%
hotel=request("hotel")
city=request("city")
if hotel="" then
session("sheng")=""
end if
session("quyu")=city
session("sheng")=hotel
%>
