links.asp

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

<!--#include file="../include/conn.asp"-->
<%
linkname=request("linkname")
linkurl=request("linkurl")
linksm=request("linksm")
key=request("key")

if request("action")="del" then
conn.execute("delete from "&WebSqlType&"_links where "&WebSqlType&"_id=" & request("id"))
response.redirect "links.asp?action=reh"

elseif request("action")="editsave" then
if linkname="" or linkurl="" or linksm="" or key="" then
response.write"<script>alert('友情连接资料不能为空！！！');history.go(-1)</script>"
response.end
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_links where "&WebSqlType&"_id="&request("id")
rs.open sql,conn,1,3
rs(""&WebSqlType&"_linkname")=linkname
rs(""&WebSqlType&"_linkurl")=linkurl
rs(""&WebSqlType&"_linksm")=linksm
rs.update
rs.close
set rs=nothing
response.redirect "links.asp?action=reh"

elseif request("action")="save" then
if linkname="" or linkurl="" or linksm="" or key="" then
response.write"<script>alert('友情连接资料不能为空！！！');history.go(-1)</script>"
response.end
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_links"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_linkname")=linkname
rs(""&WebSqlType&"_linkurl")=linkurl
rs(""&WebSqlType&"_linksm")=linksm
rs(""&WebSqlType&"_key")=key
rs.update
rs.close
set rs=nothing

response.redirect "links.asp?action=reh"
elseif request("action")="reh" then
response.write "<meta http-equiv='refresh' content='0;URL=links.asp'>"
end if
response.Write"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
response.Write"<LINK href=""css.css"" type=text/css rel=stylesheet>"
response.Write"<br><table width='97%' border='0' cellspacing='0' cellpadding='0' align=center>"
response.Write"<tr><td width='50%'>"
response.Write"<table width='98%' border='1' cellpadding='0' cellspacing='0' bordercolorlight='#cccccc' bordercolordark='#FFFFFF'>"
response.Write"<form name='addform' action='links.asp?action=save' method='post'>"
response.Write"<input name='key' type='hidden' value='0'>"
response.Write"<tr><td height='25' colspan=2 bgcolor=#efefef>&nbsp; <strong>文字连接</strong></td></tr>"
response.Write"<tr><td width='80' height='25' align='right'>网站名称&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linkname' type='text' size='20' value='http://'></td></tr>"
response.Write"<tr> <td height='25' align='right'>连接地址&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linkurl' type='text' size='40' value='http://'></td></tr>"
response.Write"<tr><td height='25' align='right'>网站说明&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linksm' type='text' size='40'></td></tr>"
response.Write"<tr><td height='25' align='center' colspan='2'><input type='submit' name='Submit' value=' 添 加 '></td></tr>"
response.Write"</form></table></td><td width='50%'>"
response.Write"<table width='98%' border='1' align='right' cellpadding='0' cellspacing='0' bordercolorlight='#cccccc'"
response.Write" bordercolordark='#FFFFFF'><form name='form' action='links.asp?action=save' method='post'>"
response.Write"<input name='key' type='hidden' value='1'>"
response.Write"<tr><td height='25' colspan=2 bgcolor=#efefef>&nbsp; <strong>图片连接</strong></td></tr>"
response.Write"<tr><td width='80' height='25' align='right'>图片地址&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linkname' type='text' size='30' value='http://'> 尺寸：88*31</td></tr>"
response.Write"<tr> <td height='25' align='right'>连接地址&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linkurl' type='text' size='40' value='http://'></td></tr>"
response.Write"<tr><td height='25' align='right'>网站说明&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linksm' type='text' size='40'></td></tr>"
response.Write"<tr><td height='25' align='center' colspan='2'><input type='submit' name='Submit' value=' 添 加 '></td></tr>"
response.Write"</form></table></td></tr></table><br>"
response.Write"<table width='97%' border='1' align='center' cellpadding='0' cellspacing='0' bordercolorlight='#cccccc' "
response.Write"bordercolordark='#FFFFFF'><tr align=center>"
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_links where "&WebSqlType&"_key=0 and "&WebSqlType&"_key1=1 order by "&WebSqlType&"_id desc"
rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1
response.Write"<td height='25'><a href="&rs(""&WebSqlType&"_linkurl")&" title="&rs(""&WebSqlType&"_linksm")&" target='_blank'>"
response.Write""&rs(""&WebSqlType&"_linkname")&"</a> <a href=links.asp?action=edit&id="&rs(""&WebSqlType&"_id")&"&key=0 class=red>改</a>"
response.Write" <a href=links.asp?action=del&id="&rs(""&WebSqlType&"_id")&" class=red>删</a></td>"
if n mod 5=0 then response.write "</tr><tr align=center>"
rs.movenext
loop
rs.close
set rs=nothing
response.Write"</tr><tr align=center>"
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_links where "&WebSqlType&"_key=1 and "&WebSqlType&"_key1=1 order by "&WebSqlType&"_id desc"
rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1
response.Write"<td height='40'><table width='100' border='0' cellspacing='0' cellpadding='0' align='center'>"
response.Write"<tr><td align='center'><p style='line-height:130%'><a href="&rs(""&WebSqlType&"_linkurl")&" "
response.Write"title="&rs(""&WebSqlType&"_linksm")&" target='_blank'><img align='left' src='"&rs(""&WebSqlType&"_linkname")&"'"
response.Write" width=88 height=31 border=0></a> <a href=links.asp?action=edit&id="&rs(""&WebSqlType&"_id")&"&key=1 class=red>改"
response.Write"</a> <a href=links.asp?action=del&id="&rs(""&WebSqlType&"_id")&" class=red>删</a></td> </tr></table></td>"
if n mod 5=0 then response.write "</tr><tr align=center>"
rs.movenext
loop
rs.close
set rs=nothing
response.Write"</tr></table><br>"
if request("action")="edit" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_links where "&WebSqlType&"_id="&request("id")
rs.open sql,conn,1,1
response.Write"<table width='97%' border='1' align='center' cellpadding='0' cellspacing='0' "
response.Write"bordercolorlight='#cccccc' bordercolordark='#FFFFFF'>"
response.Write"<form name='form' action='links.asp' method='post'>"
response.Write"<input name='id' type='hidden' value='"&request("id")&"'>"
response.Write"<input name='action' type='hidden' value='editsave'>"
if request("key")=0 then
response.Write"<input name='key' type='hidden' value='0'>"
response.Write"<tr><td height='25' colspan=2 bgcolor=#efefef>&nbsp; <strong>文字连接</strong></td></tr>"
response.Write"<tr><td width='200' height='25' align='right'>网站名称&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linkname' type='text' size='20' value='"&rs(""&WebSqlType&"_linkname")&"'></td></tr>"
else
response.Write"<input name='key' type='hidden' value='1'>"
response.Write"<tr><td height='25' colspan=2 bgcolor=#efefef>&nbsp; <strong>图片连接</strong></td></tr>"
response.Write"<tr><td width='200' height='25' align='right'>图片地址&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linkname' type='text' size='30' value='"&rs(""&WebSqlType&"_linkname")&"'> "
response.Write"尺寸：88*31</td></tr>"
end if
response.Write"<tr> <td height='25' align='right'>连接地址&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linkurl' type='text' size='40' value='"&rs(""&WebSqlType&"_linkurl")&"'></td></tr>"
response.Write"<tr><td height='25' align='right'>网站说明&nbsp;</td>"
response.Write"<td>&nbsp;<input name='linksm' type='text' size='40' value='"&rs(""&WebSqlType&"_linksm")&"'></td></tr>"
response.Write"<tr><td height='25' align='center' colspan='2'><input type='submit' name='Submit' value=' 修 改 '></td></tr>"
response.Write"</form></table>"
rs.close
set rs=nothing
end if%>