%
Const SqlDatabaseName = "b2chotel"
Const SqlPassword = "cardrt67y8"
Const SqlUsername = "b2chotel"
Const SqlLocalName = "(local)"
'================================================================================================================
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "22222222222222222"
Response.End
End If
function checkstr(str)
checkstr=str
N_no ="′|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
N_noarray = split(LCase(N_no),"|")
for i=0 to ubound(N_noarray)
if instr(checkstr,N_noarray(i))<>0 then
checkstr=replace(checkstr,N_noarray(i),"")
end if
next
end function
function Gethotellever(leverid)
leverid=cint(leverid)
Select case leverid
case "1" :Gethotellever="★★★★★"
case "3" :Gethotellever="★★★★"
case "5" :Gethotellever="★★★"
case "7" :Gethotellever="★★"
case "9" :Gethotellever="度假村"
case "10" :Gethotellever="经济型酒店"
case "11" :Gethotellever="招待所"
case "12" :Gethotellever="农家乐"
case "13" :Gethotellever="青年旅舍"
case "14" :Gethotellever="家庭旅馆"
case "15" :Gethotellever="特色客栈"
case "16" :Gethotellever="自助公寓"
End Select
end function
%>
<%
hotelname=request("hotelname")
hotellever=request("hotellever")
startdate=request("startdate")
enddate=request("enddate")
if startdate="" then
startdate=FormatDateTime(now,2)
enddate=DATEADD("d",1,startdate)
End if
Province="请选择省市"
city="请选择城市"
if len(city)<2 or city="请选择城市" then city1="全部"
%>