|
|
|
<%sql="select top 8 id,c_name from Hotelb order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if rs.eof then
response.write "暂时还没有任何信息!"
Else
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close%> |
|
|
|
|
<%sql="select top 8 id,x_name from xianlu order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if rs.eof then
response.write "暂时还没有任何信息!"
Else
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close%> |
|
|
|
|
|
|
|
|
<%dim action
action=request.QueryString("action")
select case action
case ""
%>
| 尊敬的客户，请在这里将您们的宝贵建议反馈给我们，我们会及时回复，谢谢 ！ |
|
<%
case "save"
if session("fkfk")=minute(now) then
response.write ""
response.End
end if
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "")
fString = Replace(fString, CHR(10), "
")
HTMLEncode2 = fString
end function
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Gbook",conn,1,3
rs.addnew
rs("fksubject")=trim(request("fksubject"))
rs("fkleixing")=request("fkleixing")
rs("fkcontent")=htmlencode2(trim(request("fkcontent")))
rs("fkusername")=trim(request("fkusername"))
rs("fkemail")=trim(request("fkemail"))
rs("fktel")=trim(request("fktel"))
rs("fklaizi")=trim(request("fklaizi"))
rs("fkdate")=now
rs("fkip")=Request.ServerVariables("remote_addr")
rs.update
rs.close
set rs=nothing
session("fkfk")=minute(now)
response.write "
您的信息反馈已成功提交，感谢您的参与！
返回首页"
end select%> |