fun.asp

SUZI网络订房系统

<%
'******************
'取得酒店名称
'******************
Function GetHotelName(ZZID)
	
	if trim(ZZID)="" then
   		exit Function
  	end if 
  	
	set rec=server.createobject("adodb.recordset")
	strsql="select c_name from hotelb where Id=" & ZZID & ""
	rec.open strsql,conn,1,1
  	
  	If Not rec.Eof Then
  		GetHotelName=rec("c_name")
  	Else
  		GetHotelName=""
  	End IF

  	rec.close
End Function

'******************
'取得房型名称
'******************
Function GetRoomName(ZZID)
	
	if trim(ZZID)="" then
   		exit Function
  	end if 
  	
	set rec=server.createobject("adodb.recordset")
	strsql="select type from roomb where Id=" & ZZID & ""
	rec.open strsql,conn,1,1
  	
  	If Not rec.Eof Then
  		GetRoomName=rec("type")
  	Else
  		GetRoomName=""
  	End IF

  	rec.close
End Function
%>