📄 modifysite.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.CacheControl = "no-cache"
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Const.asp"-->
<!--#Include File="../Inc/MD5.asp"-->
<%
If Action = "SaveModify" Then
Call SaveFriendSite()
Else
Call Modify()
End If
Call ApplicationTerminate()
Sub SaveFriendSite()
On Error Resume Next
Dim FriendSiteCmd, tempNum
Dim SiteID, SiteName, SiteURL, SiteLogo, WebmasterName, WebmasterEmail, Password, Password2, Content, OldPassword
SiteID = EL_Common.ELRequest("SiteID", 2)
SiteName = EL_Common.ELRequest("SiteName", 1)
SiteURL = EL_Common.ELRequest("SiteURL", 1)
SiteLogo = EL_Common.ELRequest("SiteLogo", 1)
WebmasterName = EL_Common.ELRequest("WebmasterName", 1)
WebmasterEmail = EL_Common.ELRequest("WebmasterEmail", 1)
OldPassword = EL_Common.ELRequest("OldPassword", 1)
Password = EL_Common.ELRequest("Password", 1)
Password2 = EL_Common.ELRequest("Password2", 1)
Content = EL_Common.ELRequest("Content", 1)
tempNum = EL_Common.GetFieldValue("COUNT(*)", "EL_FriendSite", "SiteID="& SiteID &" And Password='"& MD5(OldPassword, 32) &"'")
If tempNum <> 1 Then
EL_Common.ShowErrorMsg("原始密码错误")
Exit Sub
End If
If Password <> "" And Password <> Password2 Then
EL_Common.ShowErrorMsg("您两次输入的密码不一致")
Exit Sub
End If
If lCase(SiteLogo) = "http://" Then SiteLogo = ""
If Password<>"" Then Password = MD5(Password, 32)
Call EL_Common.InitCommand(FriendSiteCmd, "EL_SP_FriendSite")
With FriendSiteCmd
.Parameters.Append .CreateParameter("RETUEN", 2, 4)
.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, 1)
.Parameters.Append .CreateParameter("@SiteID", 3, 1, 4, SiteID)
.Parameters.Append .CreateParameter("@SiteName", 200, 1, 255, SiteName)
.Parameters.Append .CreateParameter("@SiteURL", 200, 1, 255, SiteURL)
.Parameters.Append .CreateParameter("@SiteLogo", 200, 1, 255, SiteLogo)
.Parameters.Append .CreateParameter("@WebmasterName", 200, 1, 50, WebmasterName)
.Parameters.Append .CreateParameter("@WebmasterEmail", 200, 1, 100, WebmasterEmail)
.Parameters.Append .CreateParameter("@Password", 200, 1, 32, Password)
.Parameters.Append .CreateParameter("@Content", 200, 1, 500, Content)
.Parameters.Append .CreateParameter("@Commended", 11, 1, 1, 0)
.Parameters.Append .CreateParameter("@Passed", 11, 1, 1, 0)
.Parameters.Append .CreateParameter("@RegDateTime", 135, 1, 8, Now())
.Execute()
End With
Set FriendSiteCmd = Nothing
EL_Common.ShowSuccessMsg("修改链接成功<br>网站名称："& EL_Common.ServerHTMLEncode(SiteName))
EL_Common.ShowScriptError()
End Sub
Sub Modify()
Dim SiteCmd, rsSite
Dim SiteID
SiteID = EL_Common.ELRequest("SiteID", 2)
Call EL_Common.InitCommonCmd(SiteCmd, rsSite, "EL_FriendSite", "*", "SiteID="& SiteID)
rsSite.Close()
If SiteCmd(0) <> 1 Then
Set rsSite = Nothing
Set SiteCmd = Nothing
EL_Common.ShowErrorMsg("指定友情链接不存在")
Exit Sub
End If
rsSite.Open()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>友情链接管理</title>
<style>
/*定义网站基本元素样式*/
body, div{ margin-left:auto; margin-right:auto; font-size:12px; color:#333333; }
body { margin-top:0px; margin-bottom:0px; padding:0px; text-align:center; }
div { text-align:left;}
td { font-size:12px; line-height: 150%; margin:0px; }
form { margin:0px; padding:0px; }
select, input{ font-size:12px;}
/*定义网页宽度DIV*/
.bodywidth{ width:980px; }
/*定义链接样式*/
a{ color: #333333; text-decoration:none;}
a:hover{ color:#FF0000; }
/*定义栏目边框样式*/
.main_border{ border:1px solid #91A9BD;}
/*定义栏目标题样式*/
.main_title{ color:#FFFFFF; font-weight:bold; }
</style>
<script language="javascript" src="../Js/Common.js"></script>
<script language="javascript">
function Check(frm){
if(frm.SiteName.value.trim()==""){
alert("请输入网站名称");
frm.SiteName.focus();
return false;
}
if(frm.SiteURL.value.trim()==""){
alert("请输入网站地址");
frm.SiteURL.focus();
return false;
}
SubmitOnce(frm);
return;
}
</script>
</head>
<body style="text-align:center;">
<div class="bodywidth">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="bodywidth">
<tr>
<td height="50" align="center"></td>
</tr>
</table>
<form name="myform" action="ModifySite.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="main_border">
<tr>
<td height="27" colspan="2" align="center" background="../Skin/Default/Main_BG.gif" class="main_title"><strong>修 改 友 情 链 接</strong></td>
</tr>
<tr>
<td width="153" height="22" align="right" bgcolor="#F1F3FE">网站名称：</td>
<td width="824" align="left" bgcolor="#F1F3FE"><input name="SiteName" type="text" id="SiteName" value="<%=EL_Common.ServerHTMLEncode(rsSite("SiteName"))%>" size="50"></td>
</tr>
<tr class="Border">
<td height="22" align="right" bgcolor="#F1F3FE">网站地址：</td>
<td align="left" bgcolor="#F1F3FE"><input name="SiteURL" type="text" id="SiteURL" value="<%=EL_Common.ServerHTMLEncode(rsSite("SiteURL"))%>" size="50"></td>
</tr>
<tr class="Border">
<td height="22" align="right" bgcolor="#F1F3FE">LOGO地址：</td>
<td align="left" bgcolor="#F1F3FE"><input name="SiteLogo" type="text" id="SiteLogo" value="<%=EL_Common.ServerHTMLEncode(rsSite("SiteLogo"))%>" size="50"></td>
</tr>
<tr class="Border">
<td height="22" align="right" bgcolor="#F1F3FE">站长名称：</td>
<td align="left" bgcolor="#F1F3FE"><input name="WebmasterName" type="text" id="WebmasterName" value="<%=EL_Common.ServerHTMLEncode(rsSite("WebmasterName"))%>" size="30"></td>
</tr>
<tr class="Border">
<td height="22" align="right" bgcolor="#F1F3FE">站长邮箱：</td>
<td align="left" bgcolor="#F1F3FE"><input name="WebmasterEmail" type="text" id="WebmasterEmail" value="<%=EL_Common.ServerHTMLEncode(rsSite("WebmasterEmail"))%>" size="30"></td>
</tr>
<tr class="Border">
<td height="22" align="right" bgcolor="#F1F3FE">原始密码：</td>
<td align="left" bgcolor="#F1F3FE"><input name="OldPassword" type="password" id="OldPassword" size="30"></td>
</tr>
<tr class="Border">
<td height="22" align="right" bgcolor="#F1F3FE">新密码：</td>
<td align="left" bgcolor="#F1F3FE"><input name="Password" type="password" id="Password" size="30">
<span class="redText">不修改请留空</span></td>
</tr>
<tr class="Border">
<td height="22" align="right" bgcolor="#F1F3FE">新密码确认：</td>
<td align="left" bgcolor="#F1F3FE"><input name="Password2" type="password" id="Password2" size="30"></td>
</tr>
<tr class="Border">
<td height="22" align="right" bgcolor="#F1F3FE">网站简介：</td>
<td align="left" bgcolor="#F1F3FE"><textarea name="Content" cols="70" rows="6" id="Content"><%=EL_Common.ServerHTMLEncode(rsSite("Content"))%></textarea></td>
</tr>
<tr class="Border">
<td height="50" align="right" bgcolor="#F1F3FE"> </td>
<td bgcolor="#F1F3FE" class="td_50"><input type="submit" name="Submit" value="保存修改">
<input type="button" name="Submit2" value="返回上页" onClick="history.back()">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="SiteID" type="hidden" id="SiteID" value="<%=SiteID%>"></td>
</tr>
</table>
</form>
</div>
</body>
</html>
<%
rsSite.Close()
Set rsSite = Nothing
Set SiteCmd = Nothing
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -