domainbuy.asp

一个非常优秀的自动建站程序

<!--#include file="top.asp"-->
<%
if Request("action")="action" then
if Trim(Request.Form("NoteSub"))="" or Request.Form("NoteType")="" or Trim(Request.Form("NoteBody"))="" then response.redirect "error.asp?id=004"
set rs=server.createobject("adodb.recordset")
sql="select * from [Notes] where (NoteID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("UserID")=session("ID")
rs("NoteSub")=HTMLEncode(Trim(Request.Form("NoteSub")))
rs("NoteType")=Request.Form("NoteType")
rs("NoteBody")=HTMLEncode(Request.Form("NoteBody"))
rs("NoteTime")=now()
rs.update
rs.close
set rs=nothing
response.redirect "NoteList.asp"
response.end
end if
%>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<tr>
<td align=center bgcolor="#FFFFFF">
<br>
<table align=center width=600 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<tr>
<td bgcolor=ffffff align=center height=24>
请填写您需要购买的域名，我们在收到域名款后24小时内开通
</td>
</tr>
<form method="POST" action="?action=action" name=TextForm>
<tr>
<td bgcolor=FFFFFF align=center height=24>
留言主题 <input type="text" name="NoteSub" value="" style="width:280px">
问题类型 <SELECT name=NoteType style="width:160px">
<OPTION value="域名相关" selected>域名相关</OPTION>
</SELECT>
<br>
留言内容 <textarea name="NoteBody" style="width:500px; height:100px"></textarea>
<br>
<input type="submit" name="Submit" value=" 提交购买 " style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
<input type="RESET" name="Reset2" value=" 重新填写 " style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
</td>
</tr>
</form>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Notes] where UserID=" & session("ID") & " ORDER BY NoteID DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<!--没有内容-->"
'response.end()
 else
RowCount=5
Tmp=IsNumeric(Request("PageNo"))
if (Tmp=False) then
PageNo=1
else
PageNo=Request("PageNo")
end if
TSum=INT(rs.RECORDCOUNT/RowCount*-1)*-1
if PageNo="" or PageNo=0 then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
if CINT(PageNo)>1 then
if CINT(PageNo)>CINT(TSum) then
PageNo=1
end if
end if
if PageNo<0 then
PageNo=1
End if
RS.PageSize=RowCount
RS.AbsolutePage=PageNo
RECORDCOUNT=rs.RECORDCOUNT
DO WHILE NOT rs.EOF AND RowCount>0
%>
<tr>
<td bgcolor=FFFFFF align=center height=24>
<table width=90% border=0>
<tr>
<td>
<%=rs("NoteSub")%> [<%=rs("NoteType")%>] (<%=rs("NoteTime")%>)<hr size=1 color=E1E6EC><%=rs("NoteBody")%>
<%if rs("NoteRep")<>"" then response.write ("<hr size=1 color=E1E6EC>" & rs("NoteRep"))%>
</td>
</tr>
</table>
</td>
</tr>
<%
RowCount = RowCount - 1
rs.MoveNext
Loop
rs.close
set rs = nothing
 end if%>
</table>
<br>
<table width="600" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<tr bgcolor="#FFFFFF">
<td align=center>
<table width=100% border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
共有信息 <%=RECORDCOUNT%> 条 当前第 <%=PageNo%>/<%=TSum%> 页
</td>
<td align=right>
<%=PageList%>
</td>
</tr>
</table>
</td>
</tr>
<%if TSum>3 then%>
<tr bgcolor="#FFFFFF">
<td align=center>
<%for i=1 to TSum%>
<a href="?PageNo=<%=i%>">第<%=i%>页</a>
<%next%>
</td>
</tr>
<%end if%>
</table>
<%Function PageList()
if TSum>1 then
if PageNo=1 then
NextPage=PageNo+1
response.write"首页 上一页 <a href='?PageNo="&NextPage&"'>下一页</a> <a href='?PageNo="&TSum&"'>尾页</a>"
end if
if PageNo=TSum then
PrwePage=PageNo-1
response.write "<a href='?PageNo=1'>首页</a> <a href='?PageNo="&PrwePage&"'>上一页</a> 下一页 尾页"
end if
if PageNo>1 and TSum>PageNo then
NextPage=PageNo+1
PrwePage=PageNo-1
response.write "<a href='?PageNo=1'>首页</a> <a href='?PageNo="&PrwePage&"'>上一页</a> <a href='?PageNo="&NextPage&"'>下一页</a> <a href='?PageNo="&TSum&"'>尾页</a>"
end if
else
response.write "首页 上一页 下一页 尾页"
end if
End Function%>
<br>
</td>
</tr>
</table>
<!--#include file="foot.asp"-->