<% strCurrMenu="14977" %>
 
 
标题 内容
 

 
<% '读取留言本的属性,以确定显示那个字段 isDW=GetKey("g_dw",WebUserID,"guestbook_" & strCurrMenu ) isTel=GetKey("g_tel",WebUserID,"guestbook_" & strCurrMenu ) isEmail=GetKey("g_email",WebUserID,"guestbook_" & strCurrMenu ) isAdrr=GetKey("g_adrr",WebUserID,"guestbook_" & strCurrMenu ) isOICQ=GetKey("g_oicq",WebUserID,"guestbook_" & strCurrMenu ) isShow=GetKey("seeguest",WebUserID,"guestbook_" & strCurrMenu ) %> <%if isDW<>"none" then%> <%end if%> <%if isTel<>"none" then%> <%end if%> <%if isAdrr<>"none" And isAdrr<>"Null" then%> <%end if%> <%if isEmail<>"none" then%> <%end if%> <%if isOICQ<>"none" And isOICQ<>"Null" then%> <%end if%>
请您留言: <%if isShow<>"none" then%> >>查看留言 <%end if%>
您的姓名: [必填]
单位名称:
联系电话:
地 址:
电子邮件:
OICQ号码:
留言内容: [必填]
  <%if isShow<>"none" then%> >>查看留言 <%end if%>

<% '开始输出分类 strcode="" for i=1 to Len(SourCode) \ 4 strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'" next if strcode<>"" then strcode="(1<>1"&strcode&" or Len(c_code)=4)" else strcode=" Len(c_code)=4" end if strSQL="Select * From web_news_class Where mn_id=" & strCurrMenu&" and " & strcode & " Order by c_code" 'response.Write(strsql) Set rsClass=Server.CreateObject("ADODB.RecordSet") rsClass.open strSQL,conn,1,1 for i=1 to rsClass.recordcount Level=(Len(rsClass("c_code"))/4-1)*3 %> <% rsClass.movenext next %>
<% If Len(rsClass("c_code"))>4 Then Response.Write "├" Response.Write String(Level,"-") %> &classname=<%=trim(rsClass("c_name"))%>"><%=trim(rsClass("c_name"))%>

留言板
Copyright© 2006 年 Easen International Company, Ltd. 美国宜生国际有限公司版权所有
上海公司: 长宁区长宁路 988 号花园大厦 5F   
 电话:(86-21)5273 8396 传真:(86-21)5273 8395
更新于