<%call SiteInfo%> 联系我们 - <% =ComName %> <% 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 %>
当前位置 :<%=WebLocation()%>  
<% dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Hm_About where ViewFlag and ID=8" rs.open sql,conn,1,3 if rs.eof Then %>

暂无相关信息

<% Else %> <%=rs("Content")%> <% end if rs.close set rs=nothing %> 
 
<% function WebMenu(ParentID,i,level) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Hm_OthersSort where ViewFlag and ParentID="&ParentID&" order by ID asc" rs.open sql,conn,1,1 if conn.execute("select ID from Hm_OthersSort Where ViewFlag and ParentID=0").eof then response.write "
暂无相关信息
" end if do while not rs.eof If ISHTML = 1 Then AutoLink = ""&OtherSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "OtherList.asp?SortID="&rs("ID")&"" End If response.write "
  • "&rs("SortName")&"
  • " i=i+1 if i" call WebMenu(rs("ID"),i,level) response.write "" end if i=i-1 rs.movenext loop rs.close set rs=nothing end function function WebLocation() WebLocation="首页 - 联系我们"&VbCrLf end Function sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Hm_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 %>