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'> "
response.Write"<td width='11%' height='25'><span class='STYLE2'>添加</span></td>"
response.Write"<td width='74%' class='STYLE2'>头衔 <input name='addone' type='text' size='20'>"
response.Write"&nbsp;积分<input name='Ghtc' type='text' id='Ghtc' size='8'> - <input name='Ehtc' type='text' id='Ehtc' size='8'>"
response.Write"如：0 - 500分是什么头衔</td><td width='15%'><input type='submit' name='Submit' value='添加' class=input1></td>"
response.Write"</tr></form></table><br>"
response.Write"<table width='95%' height='0' border='1' align='center' cellpadding='0' cellspacing='0' "
response.Write"bordercolorlight='#cccccc' bordercolordark='#FFFFFF'><tr align='center'> "
sql="select *  from "&WebSqlType&"_top order by "&WebSqlType&"_id 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' align='left' class='STYLE2'>&nbsp;<a href=addoneadd.asp?id="
response.Write""&rs(""&WebSqlType&"_id")&"&one="&rs(""&WebSqlType&"_title")&"&Ghtc="&rs(""&WebSqlType&"_Ghtc")&""
response.Write"&Ehtc="&rs(""&WebSqlType&"_Ehtc")&">"&rs(""&WebSqlType&"_title")&"</a> <font color='#cccccc'>"&rs(""&WebSqlType&"_Ghtc")&""
response.Write"-"&rs(""&WebSqlType&"_Ehtc")&"</font> </td>"
if n mod 5=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='77%' height='30' align='center' class='STYLE2'>"
response.Write" 头衔  <input name='addone' type='text' size='20' value='"&request("one")&"'>"
response.Write" &nbsp;积分<input name='Ghtc' type='text' id='Ghtc' size='8' value='"&request("Ghtc")&"'> "
response.Write"- <input name='Ehtc' type='text' id='Ehtc' size='8' value='"&request("Ehtc")&"'>"
response.Write"如：0 - 500分是什么头衔</td><td width='23%' align='center'>"
response.Write"<input type='submit' name='Submit2' value='改名' class=input1>"
response.Write"<input type='button' name='button' 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>"
%>