<%call SiteInfo%> 留言反馈 - <% =SiteTitle %> <% dim MesName,Content,SecretFlag,mMemID,mLinkman,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail if session("MemName")<>"" and session("MemLogin")="Succeed" then call MemInfo() else mSex="先生" mMemID=0 SecretFlag="会员功能,请先注册会员。" end if %>
 
在线留言
留言主题: *
留言内容: *
称呼: *
?#21592;穡?/td> /> 先生 /> 女士 *
公司名称: *
联系地址: *
邮政编码: *
联系电话: *
传真号码: *
手机号码: *
电子信箱: *
验证码: *
 
 
<% function WebMenu() response.write "签写留言" response.write "所有留言" response.write "我的留言" end function function WebLocation() WebLocation=" 当前位置:首页 - 留言反馈 - 签写留言"&VbCrLf end Function sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_Members where MemName='"&session("MemName")&"'" rs.open sql,conn,1,1 if rs.eof then response.write "
参数错误
" else mMemID=rs("ID") if not rs("RealName")="" then mLinkman=rs("RealName") else mLinkman=rs("MemName") end if mSex=rs("Sex") mCompany=rs("Company") mAddress=rs("Address") mZipCode=rs("ZipCode") mTelephone=rs("Telephone") mFax=rs("Fax") mMobile=rs("Mobile") mEmail=rs("Email") SecretFlag="" end if rs.close set rs=nothing end sub %> <%Function Folder(id) Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType Set rs=server.CreateObject("adodb.recordset") sql="Select * From Qianbo_ProductSort where ParentID="&id&" order by id" rs.open sql,conn,1,1 if id=0 and rs.recordcount=0 then response.write ("
暂无产品分类
") response.end end if i=1 response.write("") while not rs.eof ChildCount=conn.execute("select count(*) from Qianbo_ProductSort where ParentID="&rs("id"))(0) If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.Asp?SortID="&rs("id")&"" End If if ChildCount=0 then if i=rs.recordcount then FolderType="SortFileEnd" else FolderType="SortFile" end if FolderName=rs("SortName") onMouseUp="" else if i=rs.recordcount then FolderType="SortEndFolderClose" ListType="SortEndListline" onMouseUp="EndSortChange('a"&rs("id")&"','b"&rs("id")&"');" else FolderType="SortFolderClose" ListType="SortListline" onMouseUp="SortChange('a"&rs("id")&"','b"&rs("id")&"');" end if FolderName=rs("SortName") end If datafrom="Qianbo_ProductSort" response.write("") response.write("") if ChildCount>0 then %> " style="display:yes"> <% end if rs.movenext i=i+1 wend response.write("
"&FolderName&" ") response.write("
<% Folder(rs("id")) %>
") rs.close set rs=nothing end Function%> 三地走势图带连线
  • <dl id="k0dwn"></dl>

    <dl id="k0dwn"></dl>

    <output id="k0dwn"></output>

    <dl id="k0dwn"><font id="k0dwn"><nobr id="k0dwn"></nobr></font></dl>
    1. <dl id="k0dwn"></dl>

      <dl id="k0dwn"></dl>

      <output id="k0dwn"></output>

      <dl id="k0dwn"><font id="k0dwn"><nobr id="k0dwn"></nobr></font></dl>
        新疆十一选五电脑版 福建11选5现场开奖 足彩进球彩场次安排 11选5彩票走势图 河南快3开奖 彩8是骗局吗 5元刮刮乐中奖图片 河南福彩快三基本走势图 今日选四天天彩开奖 11选5奖结果 福建22选5走势图彩票走势图 新疆十一选五怎么玩法 排列三走势图带 双色球开奖历史比较器 体育彩票6十1开奖结果