<%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 end if %>
当前位置 :<%=WebLocation()%>  
提问标题:

(必填)

问题分类:

(必填)

提问内容:

姓名:

地址:
电话:

手机:

电子邮箱或QQ:

       


 
<% 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 function WebContent() dim idCount dim pages pages=MessageInfo dim pagec dim page page=clng(request("Page")) dim pagenc pagenc=5 dim pagenmax dim pagenmin dim pageprevious dim pagenext dim datafrom datafrom="Hm_Message " dim datawhere datawhere="where ViewFlag " dim sqlid dim Myself,PATH_INFO,QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" then Myself = PATH_INFO & "?" elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself= PATH_INFO & "?" & QUERY_STRING & "&" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if dim taxis taxis="order by id desc " dim i dim rs,sql set rs = server.createobject("adodb.recordset") sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") if(idcount>0) then if(idcount mod pages=0)then pagec=int(idcount/pages) else pagec=int(idcount/pages)+1 end if sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next end if if(idcount>0 and sqlid<>"") then sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 while not rs.eof Response.Write ""&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write "
"&rs("ID")&""&rs("Company")&"("&rs("Linkman")&""&rs("Sex")&")留言时间:"&rs("Addtime")&"
"&VbCrLf Response.Write ""&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf If rs("ReplyContent") <> "" Then Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf End If Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write "
咨询主题:"&rs("MesName")&"
咨询内容:"&HtmlStrReplace(rs("Content"))&"
 管理员回复:
"&MessageReply (rs("MemID"),rs("MesName"),rs("SecretFlag"),rs("ReplyContent"))&"
"&VbCrLf rs.movenext wend else response.write "
暂无相关信息
" exit function end if Response.Write ""&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write "
"&VbCrLf Response.Write "共"&idcount&"条记录 页次:"&page&"/"&pagec&" 每页:"&pages&"条记录" & vbCrLf pagenmin=page-pagenc pagenmax=page+pagenc if(pagenmin<1) then pagenmin=1 if(page>1) then response.write ("9 ") if page-(pagenc*2+1)<=0 then pageprevious=1 else pageprevious=page-(pagenc*2+1) end if if(pagenmin>1) then response.write ("3 ") if(pagenmax>pagec) then pagenmax=pagec for i = pagenmin to pagenmax if(i=page) then response.write (" "& i &" ") else response.write ("["& i &"]") end if next if page+(pagenc*2+1)>=pagec then pagenext=pagec else pagenext=page+(pagenc*2+1) end if if(pagenmax: ") if(page:") Response.Write "
"&VbCrLf rs.close set rs=nothing end function %>