%@ Language=VBScript %>
<%
If session("agentusername")="" Then
ef=True
ec="授权非法,有可能是超时造成的。"
ElseIf Request("id")<>"" and not IsNumeric(Request("id")) Then
ef=True
ec="编号必须是数字"
end if
if not ef then%>
<%session("FreeHostCom").FreeHost_WR("html5")%>
客服问答
<%session("FreeHostCom").FreeHost_WR("html6")%>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open Application("FreeHostDBlink")
Set dsnewsone = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_online_aws where id='"&Request("id")&"' and agent1='"&session ("agentusername")&"'"
dsnewsone.Open Sql,conn,1,1
if not dsnewsone.eof then
username=dsnewsone("username")
posttime=dsnewsone("posttime")
title=dsnewsone("title")
scon=dsnewsone("con")
typeid=dsnewsone("type1")
ip=dsnewsone("ip")
admuser=dsnewsone("admuser")
admpass=dsnewsone("admpass")
ftpname=dsnewsone("ftpname")
url=dsnewsone("url")
Curtime=dsnewsone("firstposttime")
If IsNull(dsnewsone("url")) Then url=""
'aboutimg=dsnewsone("aboutimg")
end if
dsnewsone.close
Set dsnews = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_online_aws where agent1='"&session ("agentusername")&"' order by id desc"
if Request("op")="notfinish" then Sql="Select * from FreeHost.FreeHost_online_aws where agent1='"&session ("agentusername")&"' and status='待回复' order by id desc"
if Request("op")="haveaws" then Sql="Select * from FreeHost.FreeHost_online_aws where agent1='"&session ("agentusername")&"' and status='已回复' order by id desc"
if Request("op")="finish" then Sql="Select * from FreeHost.FreeHost_online_aws where agent1='"&session ("agentusername")&"' and status='已结束' order by id desc"
if Request("op")="new" then Sql="Select * from FreeHost.FreeHost_online_aws where agent1='"&session ("agentusername")&"' and status='新问题' order by id desc"
if Request("type1")<>"" and Request("type1")<>"0" And IsNumeric(Request("type1")) Then sql=replace(sql,"order by id desc"," and type1='"&Request("type1")&"' 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
type1=Request("type1")
%>
编号 | 标题 | 用户 | 时间 | 状态 | 操作 |
<%=dsnews("id")%> | "><%=Server.HTMLEncode(dsnews("title"))%> | " target="_blank"><%=dsnews("username")%> | <%=dsnews("posttime")%> |
<%=dsnews("status")%> | ">回 &op=close&Submit=again">结 &op=close&op2=del&Submit=again">删 |
问题处理: |
checked<%end if%>> 自己回答所有名下用户的问题 checked<%end if%>> 将所有名下用户的问题自动提交给主站管理员处理 |