addoneadd.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<!--#include file="../../include/conn.asp"-->
<!--#include file="../cook.asp"-->
<%
Response.Write"<style type=""text/css"">"
Response.Write"<!--"
Response.Write".STYLE2 {font-size: 10pt}"
Response.Write".STYLE3 {font-size: 10}"
Response.Write"-->"
Response.Write"</style>"
Response.Write"<br>"
Response.Write"<table width='95%' height='0' border='1' align='center' cellpadding='0' cellspacing='0' bordercolorlight='#cccccc' bordercolordark='#FFFFFF'>"
  Response.Write"<form name='form1' method='post' action='addonesave.asp?action=add'>"
    Response.Write"<tr align='center' bgcolor='#efefef'> "
      Response.Write"<td width='16%' height='25'><span class='STYLE2'>类别添加</span></td>"
      Response.Write"<td width='25%' align='left'><input name='addone' type='text' size='30'></td>"
      Response.Write"<td width='59%' align='left'><input type='submit' name='Submit' value='添加' class=input1></td>"
    Response.Write"</tr>"
  Response.Write"</form>"
Response.Write"</table>"
Response.Write"<br>"
Response.Write"<table width='95%' height='0' border='1' align='center' cellpadding='0' cellspacing='0' bordercolorlight='#cccccc' bordercolordark='#FFFFFF'>"
Response.Write"<tr align='center'> "
sql="select *  from TaoJin2008_blogAsort order by TaoJin2008_AsortID desc"
set rs=Server.CreateObject("ADODB.Recordset")                                                    
rs.open sql,conn,1,1 
	if (rs.eof and rs.bof) then
	response.write "<tr><td height=20 colspan=3>暂无内容</td></tr>"
else                                                 
n=0                                                   
do while not rs.eof
n=n+1
Response.Write"<td width='10%' height='25' class='STYLE2'><a href=addoneadd.asp?id="&rs("TaoJin2008_AsortID")&"&one="&rs("TaoJin2008_AsortTitle")&">"
Response.Write""&rs("TaoJin2008_AsortTitle")&"</a> </td>"
if n mod 10=0 then response.write"</tr><tr align=center>"
rs.movenext                                             
loop   
end if                                   
rs.close                                             
set rs=nothing
Response.Write"</tr></table><br>"

if request("id")<>"" then
Response.Write"<table width='95%' height='0' border='1' align='center' cellpadding='0' cellspacing='0' bordercolorlight='#cccccc' bordercolordark='#FFFFFF'>"
Response.Write"<form name='form1' method='post' action='addonesave.asp?addone_id="&request("id")&"&action=edit'>"
  Response.Write"<tr bgcolor='#efefef'>"
    Response.Write"<td width='16%' align='center'><span class='STYLE2'>类别修改</span></td>"
    Response.Write"<td width='25%' height='30' align='left'><input name='addone' type='text' value='"&request("one")&"' size='30'></td>"
	Response.Write"<td width='59%' align='left'><input type='submit' name='Submit2' value='改名' class=input1>　"
Response.Write"<input type='button' name='button' title='点击此删除栏目及子栏目和内容' class=input1 value='删除' "
Response.Write"onClick=""javascript:window.open('addonesave.asp?addone_id="&request("id")&"&action=del','_self','')""></td>"
Response.Write"</tr></form></table>"
end if
Response.Write"</body></html>"
%>