www.gusucode.com > 云枫工作室企业网站源代码第五版 1.0 > docc/admin/youqinglianjie2.asp
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<!--#include file="include.asp"-->
<%
wzbiaoti=server.htmlencode(Trim(Request("wzbiaoti")))
logodizhi=server.htmlencode(Trim(Request("logodizhi")))
banner=server.HTMLEncode(trim(request("banner")))
sytpmc=server.htmlencode(Trim(Request("sytpmc")))
sytpdz=server.htmlencode(Trim(Request("sytpdz")))
if Request.QueryString("xingming")="xiaominjun" then
set rs1=server.createobject("adodb.recordset")
sql="select * from peizhi"
rs1.open sql,conn,3,3
rs1("wzbiaoti")=wzbiaoti
rs1("logodizhi")=logodizhi
rs1("banner")=banner
rs1("sytpmc")=sytpmc
rs1("sytpdz")=sytpdz
rs1.update
rs1.close
response.redirect "peizhi.asp"
end if
sql="select * from peizhi"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function check()
{
if(form1.wzbiaoti.value == "")
{
alert("网站标题不能为空！");
form1.wzbiaoti.focus();
return(false);
}
if(form1.logodizhi.value == "")
{
alert("logo地址不能为空！");
form1.logodizhi.focus();
return(false);
}
if(form1.banner.value == "")
{
alert("Banner地址不能为空！");
form1.banner.focus();
return(false);
}
if(form1.sytpmc.value == "")
{
alert("首页图片新闻名称不能为空！");
form1.sytpmc.focus();
return(false);
}
if(form1.sytpdz.value == "")
{
alert("首页图片新闻的图片地址不能为空！");
form1.sytpdz.focus();
return(false);
}
}
</script>
</head>
<body bgcolor="#799AE1">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#668ED4">
<tr>
<td height="41" colspan="3"><div align="center"><img src="images/toplogo.gif" width="500" height="60"></div></td>
</tr>
<tr bgcolor="#f5f5f5">
<td width="800" height="104" valign="top" bgcolor="#668ED4"> </td>
<td width="800" valign="top" class="unnamed1">
<form name="form1" method="POST" action="peizhi.asp?xingming=xiaominjun" onsubmit="javascript:return check()">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="41" colspan="3"><div align="center"><img src="images/quanxian.gif" width="154" height="33"></div></td>
</tr>
<tr>
<td width="9%" height="104" valign="top" bgcolor="#f5f5f5"> </td>
<td width="100%" valign="top" bgcolor="#f5f5f5" class="unnamed1"> <p><font color="#FF0000">已经存在的友情链接是：</font><br>
<TABLE width="100%" border="1" cellpadding="0" cellspacing="0">
<tr><td align="center" valign="top">链接名称</td>
<td align="center"><DIV align="left">链接地址</DIV></td>
<td width="97" align="center"><FONT color="#FF0000">删除</FONT></td></tr>
<% set rs=server.CreateObject("adodb.recordset")
sql="select * from lianjie"
rs.open sql,conn,1,1
do while not rs.eof%>
<tr><td align="center"><%=rs("mingcheng")%> <DIV align="center"></DIV></td><td width="424"><%=rs("dizhi")%></td>
<td><DIV align="center"><A href="youqinglianjie.asp?bbb=<%=rs("id")%>">删除</A> </DIV></td></tr>
<%rs.movenext
loop
rs.Close()
Set rs = Nothing%>
</TABLE>
</p>
<form name="form1" method="POST" action="youqinglianjie.asp?aaa=111" onsubmit="javascript:return check()">
<p><font color="#FF0000">添加友情链接：</font><br>
链接名称：
<input name="password" type="text" id="password" size="20">
<br>
链接地址：
<input name="password1" type="text" id="password1" size="20">
</p>
<p align="left">
<input type="submit" name="Submit" value=" 确定 ">
<input type="reset" name="Submit2" value="重置">
</p>
<input type="hidden" name="MM_update" value="form1">
<input type="hidden" name="MM_recordId" value="">
</form>
<p> </p> </td>
<td width="10%" valign="top" bgcolor="#f5f5f5"> </td>
</tr>
<tr>
<td colspan="3" bgcolor="#f5f5f5"> </td>
</tr>
</table>
</form>
<p> </p> </td>
<td width="800" valign="top" bgcolor="#668ED4"> </td>
</tr>
<tr>
<td colspan="3" bgcolor="#f5f5f5"> </td>
</tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>