viewdomaindetail.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 64 行

<% ModuleCode="M0310" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
DNID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_DomainList Where Stat='1' and DNID='" & DNID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此域名或者您没有权限！</p>"
else
%>
<!--#include file="DomainMenu.asp"-->
<!------------------------------------------------------------------------------------->
<TABLE align=center bgcolor="<%=Opt_Table_BGColor%>" border=0 cellPadding=5 cellSpacing=1 width="95%">
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">域名</td>
	<td><a href="http://www.<%=Rs("DomainName")%>" target="_blank" class="a2"><%=Rs("DomainName")%></a>
    </td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">产品名称</td>
  	<td><%=Rs("ProdName")%></td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">主DNS</td>
  	<td><%=Rs("DNS1Name")%></td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">次DNS</td>
  	<td><%=Rs("DNS2Name")%></td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">注册时间</td>
  	<td><%=FormatDateTime(Rs("STime"),vbShortDate)%></td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">到期时间</td>
  	<td><%=FormatDateTime(Rs("ETime"),vbShortDate)%></td>
  </tr>
  <tr bgcolor="<%=Opt_TD_BGColor2%>">
  	<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">租用年限</td>
  	<td><%=Rs("UYear")%>年
  	--> [<a href="DeleteDomain.asp?ID=<%=DNID%>&domain_name=<%=Rs("DomainName")%>" class="a2"><font color="red">删除域名</font></a>]
  	</td>
  </tr>
</table>

<%
end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>