%@ 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%>
服务工单
<%
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%>
<%end if
dsnews.close
set dsnews=nothing%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>