www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/Link-ShenQing.asp
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接申请</title>
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;font-family: 宋体}
option {FONT-SIZE: 9pt;font-family: 宋体}
textarea {FONT-SIZE: 9pt;font-family: 宋体}
-->
</STYLE>
</head>
<%
linkname=chkhtm(trim(request("linkname")))
URL=chkhtm(trim(request("URL")))
LB=chkhtm(trim(request("LB")))
LOGO=chkhtm(trim(request("LOGO")))
js=chkhtm(trim(request("js")))
PIC=chkhtm(trim(request("PIC")))
if (not isNumeric(PIC)) then
PIC=""
end if
if (not isNumeric(LB)) then
LB=""
end if
if linkname<>"" and URL<>"" and LB<>"" and PIC<>"" then
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [LINK] where LINKNAME='"&LINKNAME&"' order by id desc",conn,3,3
if rs.recordcount=0 then
rs.addnew
rs("linkname")=linkname
rs("URL")=URL
rs("LB")=LB
rs("logo")=logo
rs("js")=js
rs("pic")=pic
rs("sh")=0
rs.update
Response.Write "<script>alert('添加申请成功，请等待管理人员审核！');</script> <meta http-equiv='refresh' content='0; url=javascript:window.history.go(-1);'>"
Response.end
else
Response.Write "<script>alert('网站名称已经存在了！请不要重复提交。');</script> <meta http-equiv='refresh' content='0; url=javascript:window.history.go(-1);'>"
Response.end
end if
rs.close:set rs=nothing
end if
%>
<body>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="760">
<tr>
<td height=100 ><%=config("linkMBtop")%></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="760">
<tr>
<td> </td>
</tr>
<tr>
<td><!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{
if (theForm.linkname.value == "")
{
alert("请在 网站名称 域中输入值。");
theForm.linkname.focus();
return (false);
}
if (theForm.linkname.value.length < 1)
{
alert("在 网站名称 域中，请至少输入 1 个字符。");
theForm.linkname.focus();
return (false);
}
if (theForm.linkname.value.length > 255)
{
alert("在 网站名称 域中，请最多输入 255 个字符。");
theForm.linkname.focus();
return (false);
}
if (theForm.url.value == "")
{
alert("请在 网站地址 域中输入值。");
theForm.url.focus();
return (false);
}
if (theForm.url.value.length < 10)
{
alert("在 网站地址 域中，请至少输入 10 个字符。");
theForm.url.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="?" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript">
<table border="1" width="100%" id="table2" cellspacing="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<td align="left" background="../images/topBar_bg.gif" colspan="2"> <b>添加/修改友情链接
</b></td>
</tr>
<tr>
<td width="98" align="center">网站名称</td>
<td>
<!--webbot bot="Validation" s-display-name="网站名称" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="255" --><input type="text" name="linkname" size="31" value='' maxlength="255"></td>
</tr>
<tr>
<td width="98" align="center">网站地址</td>
<td>
<!--webbot bot="Validation" s-display-name="网站地址" b-value-required="TRUE" i-minimum-length="10" --><input type="text" name="url" size="42" value='http://'></td>
</tr>
<tr>
<td width="98" align="center">网站分类</td>
<td>
<select size="1" name="lb">
<option value="">请选择</option>
<%
lbid=elb
if (not isNumeric(LBID)) then
lbid=0
end if
set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select * from [LINKLB] order by id asc",conn,1,1
while not rs2.eof
%>
<option <% if clng(lbid)=clng(rs2("id")) then Response.Write " selected "%> value="<%=rs2("ID")%>"><%=rs2("lb")%></option>
<%
rs2.movenext
wend
rs2.close
set rs2=nothing
%>
</select></td>
</tr>
<tr>
<td width="98" align="center">网站LOGO</td>
<td>
<input type="text" name="logo" size="52" value='<%=elogo%>'> 图片 宽:88 高:31</td>
</tr>
<tr>
<td width="98" align="center">网站介绍</td>
<td>
<input type="text" name="js" size="52" value='<%=ejs%>'></td>
</tr>
<tr>
<td width="98" align="center">有无图片</td>
<td>
<input type="radio" value="1" name="PIC" id=pic1><label for=pic1>有LOGO</label>
<input type="radio" name="PIC" value="0" id=pic2><label for=pic2>没有LOGO</label></td>
</tr>
<tr>
<td align="center" colspan="2"><input type="submit" value="保存" name="B1"> <input type='button' value='取消' onclick="javascript:location.href='?'"></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="760">
<tr>
<td height=100 ><%=config("linkMBdown")%></td>
</tr>
</table>
</div>
</body>
</html>