<%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 "
"
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
%>