link.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="up.asp"-->

<%
dim action
action=request.querystring("action")
if lguserid="" or isnull(lguserid) then response.redirect"login.asp"
select case action
case""%>
  <table cellpadding="5" align="center" class=tableBorder6 style="border-collapse: collapse" width="<%=tbw%>" cellspacing="0" bordercolor=<%=c1%> border=1>
    <tr>
      <td width="100%" colspan="3" class=td1 bgcolor="<%=c1%>" background="<%=tbg%>" height="28" >
      <p align="center"><font color="#FFFFFF"><b>欢迎增加 <u>5D97</u> 联盟代码</b></font></td>
    </tr>
    <tr>
      <td width="22%" bgcolor=#f0F3Fa align="center"><b>论坛名称：</b></td>
      <td width="72%" colspan="2" bgcolor=#FAFBFC>木炭设计 Woodcoal Design</td>
    </tr>
    <tr>
      <td width="22%" bgcolor=#f0F3Fa align="center"><b>论坛地址：</b></td>
      <td width="72%" colspan="2" bgcolor=#FAFBFC>
      http://www.99321.net</td>
    </tr>
    <tr>
      <td width="22%" bgcolor=#f0F3Fa align="center"><b>论坛图标：</b></td>
      <td width="72%" colspan="2" bgcolor=#FAFBFC>logo.gif</td>
    </tr>
    <tr>
      <td width="22%" bgcolor=#f0F3Fa align="center"><b>论坛说明：</b></td>
      <td width="72%" colspan="2" bgcolor=#FAFBFC>微笑生活，努力工作，让我们做得更好！</td>
    </tr>
     <tr>
      <td width="22%" bgcolor=#f0F3Fa align="center"><b>联盟要求：</b></td>
      <td width="72%" colspan="2" bgcolor=#FAFBFC>贵站每日IP流量要大于等于100.</td>
    </tr>

    <tr>
      <td width="22%" bgcolor=#f0F3Fa align="center"><b>联盟演示：</b></td>
      <td bgcolor=#FAFBFC >
<a target="_blank" href="http://www.99321.net">
<img border="0" src="logo.gif" alt="微笑生活，努力工作，让我们做得更好！"></a></td>
<td><a href="logo.gif" title="微笑生活，努力工作，让我们做得更好！"><b>木炭设计 Woodcoal Design</b></a><br>
      微笑生活，努力工作，让我们做得更好！</td>
    </tr>
  <form method="POST" action="link.asp?action=save">
    <tr> 
      <td height="25" colspan=3 align=center class=a1 bgcolor=#eeeeee><b>添 加 友 情 站 点</b></td>
    </tr>
    <tr> 
      <td width="25%" align="right">网站名称：</td>
      <td width="75%" colspan="2" ><input type="text" name="SiteName" size="20"></td>
    </tr>
    <tr> 
      <td align="right">网站地址：</td>
      <td colspan="2" ><input name="SiteUrl" type="text" value="http://" size="50"></td>
    </tr>
    <tr> 
      <td align="right">Logo地址：</td>
      <td colspan="2" ><input type="text" name="LogoUrl" size="50">
        文字连接不需填写此项 </td>
    </tr>
    <tr> 
      <td align="right">网站简介：</td>
      <td colspan="2" ><input type="text" name="SiteIntro" size="40"></td>
    </tr>
    <tr> 
      <td colspan=3 align=center height="24"> <input type="submit" value=" 添 加 " name="cmdok"> 
        &nbsp; <input type="reset" value=" 取 消 "  name="cmdcancel"> </td>
    </tr>
  </form>    
</table>

<%
case"save"
dim sitename1,siteurl1,logourl1,siteintro1,body,content2,rs2,count
SiteName1=Replace(Request.Form("SiteName"),"'","")
SiteUrl1=Replace(Request.Form("SiteUrl"),"'","''")
LogoUrl1=Replace(Request.Form("LogoUrl"),"'","''")
SiteIntro1=replace(request.form("SiteIntro"),"'","''")
	if Len(Trim(Sitename1))=0 or instr(Sitename1,"[")>0 or instr(Sitename1,"]")>0 then
	response.write"<SCRIPT language=JavaScript>alert('网站名称不能为空或您使用了非法字符，请按确定返回！');"
        response.write"javascript:history.go(-1)</SCRIPT>"
        response.end
	else
	If Len(Trim(SiteUrl1))=0 Then
	    response.write"<SCRIPT language=JavaScript>alert('网站地址不能为空，请按确定返回！');"
        response.write"javascript:history.go(-1)</SCRIPT>"
        response.end
	else
        If Len(Trim(SiteIntro1))>40 then
        response.write"<SCRIPT language=JavaScript>alert('网站简介不得超过40字，请按确定返回！');"
        response.write"javascript:history.go(-1)</SCRIPT>"
        response.end
	else
	body="论坛会员[color=red]"&[lgname]&"[/color] 在自助联盟里添加了 [color=navy]"&SiteName1&"[/color] 联盟信息！"&chr(10)&"信息内容如下："&chr(10)&"网站名称: [color=blue]"&SiteName1&"[/color] "&chr(10)&"网站地址: [URL="&SiteUrl1&"]"&SiteUrl1&"[/URL]"&chr(10)&"网站logo:"&LogoUrl1&""&chr(10)&"网站简介:"&SiteIntro1&""
	content2=body&"|"&now()+timeset/24
	set rs2 = conn.execute("select userid from [user] where grade=16 and not del")
	do while not rs2.eof
	conn.execute("insert into sms(fromuserid,touserid,content)values("&lguserid&","&rs2("userid")&",'"&content2&"')")
	rs2.movenext
	loop
	rs2.Close
	set rs2=nothing
	conn.execute("insert into bbslink(url,picurl,name,readme,new)values('"&SiteUrl1&"','"&LogoUrl1&"','"&SiteName1&"','"&SiteIntro1&"',1)")
		response.write "<script language='javascript'>" & chr(13)
		response.write "alert('成功加入本站连接数据库同时给管理员发送了短消息,待站长确认后即生效，谢谢');" & Chr(13)
		response.write "window.document.location.href='link.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
		Response.End
	end if
	end if
	end if
%>
<%end select
call down%>