📄 fun.asp
字号:
<%
'******************
'取得酒店名称
'******************
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -