<%@ Language=VBScript %> <% If session("username")="" Then ef=True ec="请您先登陆用户区。" If session("HOSTAUID")<>"" Then ec="主机面板中不能操作用户区的内容,请您先登陆用户区。" If session("EmailAUID")<>"" Then ec="邮箱面板中不能操作用户区的内容,请您先登陆用户区。" If session("SQLAUID")<>"" Then ec="数据库面板中不能操作用户区的内容,请您先登陆用户区。" ElseIf Request("id")<>"" and not IsNumeric(Request("id")) Then ef=True ec="编号必须是数字" end if if not ef then%> <%session("FreeHostCom").FreeHost_WR("html2")%>  客服问答 <%session("FreeHostCom").FreeHost_WR("html3")%>

<% Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsnewsone = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_online_aws where username='"&session("username")&"' and id='"&Request("id")&"'" dsnewsone.Open Sql,conn,1,1 if not dsnewsone.eof then username=dsnewsone("username") posttime=dsnewsone("posttime") title=dsnewsone("title") scon=dsnewsone("con") type1=dsnewsone("type1") ip=dsnewsone("ip") admuser=dsnewsone("admuser") admpass=dsnewsone("admpass") ftpname=dsnewsone("ftpname") url=dsnewsone("url") Curtime=dsnewsone("firstposttime") 'aboutimg=dsnewsone("aboutimg") end if dsnewsone.close Set dsnews = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_online_aws where username='"&session("username")&"' order by id desc" dsnews.PageSize = 15 dsnews.Open Sql,conn,1,1 if dsnews.Eof then %>
数据库中不存在相关的记录。 <% else if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsnews.RecordCount <> 0 Then dsnews.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsnews.PageCount<=10 then endini=dsnews.PageCount else endini=10 end if end if %> <%if clng(pn)<=10 then%>较新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%> <%next%> <%else%> 较新[1]--[10]  现在是第[<%=pn%>]页  共<%=dsnews.PageCount%>页 <%end if%><%If Clng(pn)>1 Then%>上一页 <%End If%>|<%If Clng(pn)下一页 <%End If%> 提交新问题 <% For N=1 To dsnews.PageSize If dsnews.RecordCount=0 Then Exit For %> <% If clng(pn)=dsnews.PageCount Then I = dsnews.RecordCount - (dsnews.PageCount-1) * dsnews.PageSize If N=I Then Exit For End If dsnews.movenext Next%>
编号 标题 时间 状态 操作
<%=dsnews("id")%> "><%=Server.HTMLEncode(dsnews("title"))%> <%=dsnews("posttime")%>
<%=dsnews("status")%> ">回复 &op=close&Submit=again">结束
<%end if dsnews.close set dsnews=nothing%>
 提问/回复:

 标 题: ">
 分 类: 问题类型请正确选择,这将直接影响处理程度。

 服务器IP: (如果有端口也请写上)
 服务器管理帐号:
 服务器管理密码:
 FTP用户名:
 相关网址:
<%if scon<>"" then%>  原内容: <%sconary=Split(scon,vbcrlf&"-------")%> <%For i=0 To UBound(sconary) leftsconary=Split(sconary(i)," 回复(") if isnull(Curtime) then curtime="首次提问" If UBound(leftsconary)>0 Then curtime=Replace(Replace(Replace(Left(leftsconary(1),20),")--",""),")-",""),")","") End if leftsconary2=Split(leftsconary(0),"-------") curusername=leftsconary2(UBound(leftsconary2)) If leftsconary2(UBound(leftsconary2))=sconary(i) Then curusername=username Rsconary=Split(sconary(i),")-------") If UBound(Rsconary)>0 Then endscon=Rsconary(1) Else endscon=Rsconary(0) End if %> <%next%>
<%=curusername%>
<%=curtime%>
<%=Replace(endscon,vbcrlf,"
")%>


<%end if%>
<% If request("id")<>"" And IsNumeric(Request("id")) Then set dsnewsone = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_online_aws where id='"&Request("id")&"'" dsnewsone.Open Sql,conn,1,1 For i=1 To 10 If Not IsNull(dsnewsone("aboutimg"&i)) and request("id")<>"" Then %>  相关图片<%=i%>: &imgid=<%=i%>" name="idimg" id="idimg">
<% End If Next End if%>



 回复新内容:
 
   Design  UBB模式  VIEW  HTML 自动修正 35选7今天开奖号码
  提交<%else%>继续发表<%end if%>">
<%For i=1 To 5%>  上传问题的相关图片<%=i%>: (JPG格式,大小必须在100K以内,会代替原图片)
<%next%>          
<%session("FreeHostCom").FreeHost_WR("html4")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>
  • 不回避不畏惧 广东把污染防治攻坚战打成歼灭战 2019-08-19
  • 网友投诉不文明养犬行为 有关部门加强治理 2019-08-19
  • “黑市”依旧,身份证失效系统推广要加速 2019-08-18
  • 这些水果越新鲜越不能吃 放一放更好吃 2019-07-17
  • 卢新宁:人民日报为什么要办“人民号”? 2019-07-17
  • 人民日报评论员:毫不动摇把党建设得更加坚强有力 2019-07-13
  • 《数码宝贝故事》第三阶段首发初回特典公布--人民网游戏 2019-07-13
  • “鹊桥”天梯的“四宗最” 2019-07-11
  • “造床家”亮相北京国际家居展 以床的名义刮起一场睡眠盛宴 2019-07-11
  • 水墨画探索与新现实主义水墨主张 2019-07-07
  • 和亲戚一起学习传统文化 2019-07-07
  • 市领导调研利用侨务资源助力经济建设情况(图) 2019-07-03
  • 百姓满意的口碑,就是最高荣誉! 2019-07-03
  • 抓住“金钥匙” 坚定走实走对走好辽宁振兴发展之路 2019-07-02
  • 看个球容易么?这届世界杯,豪门球迷咋这么难当 2019-06-25