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><table width='95%' height='0' border='1' align='center' cellpadding='0' cellspacing='0' "
response.Write"bordercolorlight='#cccccc' bordercolordark='#FFFFFF'>"
response.Write"<form name='form1' method='post' action='addonesave.asp?action=add'>"
response.Write"<tr align='center' bgcolor='#efefef'> <td width='28%' height='25'><span class='STYLE2'>类别添加</span></td>"
response.Write"<td width='37%'><input type='text' name='addone'></td>"
response.Write"<td width='35%'><input type='submit' name='Submit' value='添加' class=input1></td></tr></form></table><br>"
response.Write"<table width='95%' height='0' border='1' align='center' cellpadding='0' cellspacing='0' bordercolorlight='#cccccc' bordercolordark='#FFFFFF'><tr align='center'> "
sql="select *  from "&WebSqlType&"_activitxsort order by "&WebSqlType&"_activitxsortdate 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(""&WebSqlType&"_activitxsortid")&""
response.Write"&one="&rs(""&WebSqlType&"_activitxsorttitle")&">"&rs(""&WebSqlType&"_activitxsorttitle")&"</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' "
response.Write"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'><td width='23%' height='30' align='center'>"
response.Write"<input name='addone' type='text' value='"&request("one")&"'></td>"
response.Write"<td width='25%' align='center'><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','')"">"
response.Write"</td></tr></form></table>"
end if
response.Write"</body></html>"
%>