📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="lib.asp"-->
<%
Call OpenData()
act=Request("act")
linkid=Request("id")
IF act="add" Then
'增加新的友情链接
set rs=server.createobject("adodb.recordset")
IF linkid="" Then
set rs_max=server.CreateObject("adodb.recordset")
sql="select max(orderid) as maxid from Sbe_Weblink"
rs_max.open sql,conn,1,1
if isnull(rs_max("maxid")) then
sequence=1
else
sequence=rs_max("maxid")+1
end if
rs_max.close
set rs_max=nothing
sql="select * from Sbe_Weblink order by id desc"
rs.open sql,conn,1,3
rs.addnew
rs("orderid")=sequence
msg="新增链接成功"
Else
msg="链接修改成功"
sql="select * from Sbe_Weblink where id =" &linkid
rs.open sql,conn,1,3
End IF
companyname=request.form("companyName")
en_companyname=request.form("en_companyname")
url=request.form("url")
url=replace(url,"http://","")
linktype=request.form("linktype")
picurl=request.form("realpicname")
linkman=request.form("linkman")
PhoneNumber=request.form("PhoneNumber")
FaxNumber=request.form("FaxNumber")
email=request.form("email")
remark=request.form("remark")
rs("companyname")=companyname
rs("en_companyname")=en_companyname
rs("URL")=url
rs("linktype")=linktype
rs("picurl")=picurl
rs("linkman")=linkman
rs("phone")=phoneNumber
rs("fax")=faxNumber & " "
rs("email")=email & " "
rs("remark")=remark & " "
rs("status")=1
rs("posttime")=now
rs.update
rs.close
set rs=nothing
Call MessageBoxOK(msg)
ElseIF len(linkid)>0 and act="modify" Then
Dim strSQL,objRec
Set objRec=Server.Createobject("adodb.recordset")
strSQL="select * from Sbe_Weblink where id=" &linkid
objRec.Open strSQL,conn,1,1
With objRec
IF .Eof And .Bof Then
companyName=""
en_companyName=""
URL=""
linktype=""
realpicname=""
linkman=""
phoneNumber=""
faxNumber=""
email=""
remark=""
Else
companyName=objRec("companyname")
en_companyName=objRec("en_companyname")
URL=objRec("URL")
linktype=objRec("linktype")
realpicname=objRec("picurl")
linkman=objRec("linkman")
phoneNumber=objRec("phone")
faxNumber=objRec("fax")
email=objRec("email")
remark=objRec("remark")
End IF
End With
objRec.Close:Set objRec=Nothing
ElseIF act="list" Then
IF Request("chkid")<>"" Then
msg="删除成功"
Conn.Execute("delete from Sbe_Weblink where id in("& Request("chkid") &")")
Call MessageBoxOK(msg)
End IF
ElseIF act="up" Then
Call Up()
ElseIf act="down" Then
Call down()
ElseIF act="pass" Then
Call pass()
End IF
Private Sub MessageBoxOK(strValue)
With Response
.Write "<script>" & vbcrlf
.Write "alert('"+strValue+"');" & vbcrlf
.Write "this.location.href='index.asp'" & vbcrlf
.Write "</script>" & vbcrlf
End With
End Sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接</title>
<link href="include/style.css" rel="stylesheet" type="text/css">
<SCRIPT language=JavaScript>
function checkform(theform){
if(theform.companyName.value==""){
alert("请填写网站名称!");
theform.companyName.focus();
return false;
}
if(theform.URL.value==""){
alert("请填写网址!");
theform.URL.focus();
return false;
}
if(theform.linkman.value==""){
alert("请填写联系人!");
theform.linkman.focus();
return false;
}
if(theform.linkman.value==""){
alert("请填写联系人!");
theform.linkman.focus();
return false;
}
if(theform.phoneNumber.value==""){
alert("请填写联系电话!");
theform.phoneNumber.focus();
return false;
}
}
// 检测浏览器
NS4 = document.layers && true;
IE4 = document.all && parseInt(navigator.appVersion) >= 4;
// 选择指定的tab.
function selectTab(tab) {
var form = document.tabform;
var TabLayer1 = getLayerStyle("TabLayer1");
var TabLayer2 = getLayerStyle("TabLayer2");
if (tab == "TabLayer2") {
_showLayer(TabLayer1, false);
_showLayer(TabLayer2, true);
} else {
_showLayer(TabLayer2, false);
_showLayer(TabLayer1, true);
}
return true;
}
function _showLayer(layer, display) {
if (layer) {
if (display) {
layer.display = "block";
} else {
layer.display = "none";
}
}
}
// 取得指定id的layer
function getLayerStyle(id) {
if (IE4 && document.all(id)) {
return document.all(id).style;
} else if (NS4 && document.layers[id]) {
return document.layers[id];
} else {
return null;
}
}
function SelectAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name == 'chkid')
e.checked = form.ChkAll.checked;
}
}
</SCRIPT>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="19%" height="25"><font color="#6A859D">友情链接 >> 友情链接 </font></td>
<td width="81%"> </td>
</tr>
<tr>
<td height="1" colspan="2" background="../images/dot.gif"></td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" id="sbe_table">
<tr>
<td width="7%"> </td>
<td width="19%" align="center">网站名称</td>
<td width="18%" align="center">链接地址</td>
<td width="12%" align="center">链接类型</td>
<td width="21%" align="center">图片</td>
<td width="6%" align="center">上移</td>
<td width="5%" align="center">下移</td>
<td width="7%" align="center">审核</td>
<td width="5%" align="center">修改</td>
</tr>
<form action="index.asp?act=list" method="post">
<%
Set oRs=Server.CreateObject("adodb.recordset")
sql="select * from Sbe_Weblink order by orderid desc"
oRs.Open sql,Conn,1,1
IF not(oRs.eof and oRs.bof) Then
Do While not oRs.eof
%>
<tr>
<td align="center"><input name="chkid" type="checkbox" id="chkid" value="<%=oRs("id")%>"></td>
<td align="center"><%=oRs("companyname")%>(<%=oRs("en_companyname")%>)</td>
<td align="center"><%=oRs("URL")%></td>
<td align="center"><%IF oRs("linktype")=true Then Response.Write "图片链接" Else Response.Write"文字链接" End IF%></td>
<td align="center"><%If oRs("picurl")<>"" Then%><img src="../uploadfile/<%=oRs("picurl")%>" width="88" height="31"><%else%>文字链接类型<%End IF%></td>
<td align="center"><a href="?id=<%=oRs("id")%>&act=up"><img src="picture/up.gif" border="0" title="上移"></a></td>
<td align="center"><a href="?id=<%=oRs("id")%>&act=down"><img src="picture/downl.gif" border="0" title="下移"></a></td>
<td align="center"><a href="?id=<%=oRs("id")%>&act=pass"><%Call JudgeMent(oRs("status"))%></a></td>
<td align="center"><a href="?act=modify&id=<%=oRs("id")%>"><img src="picture/edit.gif" border="0"></a></td>
</tr>
<%
oRs.Movenext
Loop
End IF
oRs.Close:Set oRs=Nothing
%>
<tr>
<td colspan="9"> <input type="checkbox" name="ChkAll" onClick="SelectAll(this.form)">
全选
<input type="submit" name="Submit" value="删除" class="sbe_button" ></td>
</tr>
</form>
</table>
<br>
<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0" id="sbe_table">
<form name=form method=post onSubmit="return checkform(this)" action="index.asp?act=add">
<tr align="center">
<td height="30" colspan="2" bgcolor="#EFEFEF" class="sbe_table_title">友情链接 </td>
</tr>
<tr>
<td class=M align="right" bgcolor="#EFEFEF"><a name="1"></a>网站名称：</td>
<td>
<input name="companyName" type="text" id="companyName" value="<%=companyName%>" size="40"><font color="#FF6600">*</font> </td>
</tr>
<tr>
<td class=M align="right" bgcolor="#EFEFEF">网站名称(英文)：</td>
<td><input name="en_companyName" type="text" id="en_companyName" value="<%=en_companyName%>" size="40"></td>
</tr>
<tr>
<td class=M align="right" bgcolor="#EFEFEF" width="120">网址：</td>
<td>
<input name="URL" type="text" id="URL" value="<%=URL%>" size="40"><font color="#FF6600">*</font> </td>
</tr>
<tr>
<td class=M bgcolor="#EFEFEF" align="right">链接类型：</td>
<td>
<input type="radio" name="linktype" id="linktype" value="0" <%=ReturnSel(false,linktype,2)%> onClick="selectTab('TabLayer2');">
文字链接
<input type="radio" name="linktype" id="linktype" value="1" <%=ReturnSel(true,linktype,2)%> onClick="selectTab('TabLayer1');">
图片链接</td>
</tr>
<tr align="center" bgcolor="#FFFFCC">
<td colspan="2" bgcolor="#D8E4F1" class=M>
<div id="TabLayer1" <%IF linktype=True Then%>style="display:'block'"<%Else%>style="display:'none'"<%End IF%>>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="border:none; ">
<tr>
<td width="39%" align="right" style="border:none; ">图片：
<input name="realpicname" type="text" value="<%=realpicname%>" size="13" readonly></td>
<td width="61%" align="left" style="border:none; "><iframe src="../upload/upload.asp?Form_Name=form&UploadFile=realpicname" width="100%" height="25" frameborder="0" scrolling="no"></iframe></td>
</tr>
</table>
<table width="58%" border="0" cellpadding="0" cellspacing="0" style="border:none; ">
<tr>
<td style="border:none; "><img src="picture/hzcnc.gif" alt="Preview" name="imagePreview" width=88 height="31" border=0 align=middle></td>
<td style="border:none; ">88x31像素<br>
图片大小不能超过<font color="#FF6600">50</font>K!</td>
</tr>
</table>
</div> </td>
</tr>
<tr>
<td class=M bgcolor="#EFEFEF" align="right">联系人：</td>
<td class=M>
<input name="linkman" type="text" id="linkman" value="<%=linkman%>" size="40"><font color="#FF6600">*</font> </td>
</tr>
<tr>
<td class=M bgcolor="#EFEFEF" align="right">联系电话：</td>
<td>
<input name="phoneNumber" type="text" id="PhoneNumber" value="<%=phoneNumber%>" size="20" maxlength="32"><font color="#FF6600">*</font> </td>
</tr>
<tr>
<td class=M bgcolor="#EFEFEF" align="right">传真：</td>
<td>
<input name="faxNumber" type="text" id="FaxNumber" value="<%=faxNumber%>" size="20" maxlength="32"> </td>
</tr>
<tr>
<td class=M align="right" bgcolor="#EFEFEF">电子信箱：</td>
<td>
<input name="email" type="text" id="email" value="<%=email%>" size="40"> </td>
</tr>
<tr>
<td class=M bgcolor="#EFEFEF" align="right">备注：</td>
<td>
<textarea name="remark" id="remark" cols="46" rows="6"><%=remark%></textarea> </td>
</tr>
<tr>
<td class=M align="right" bgcolor="#EFEFEF"> </td>
<td>
<input name="submit" type="submit" class="sbe_button" value=" 确 定 ">
<input type="hidden" name="id" value=<%=linkid%>> </td>
</tr>
</form>
</table>
<%Call CloseDataBase()%>
</body>
</html>
<%
Private Sub pass()
'审核功能
id=request.Querystring("id")
'IF id="" Then Exit Sub
Set objRs=Server.Createobject("adodb.recordset")
sql="select status from Sbe_Weblink where id=" &id
objRs.Open sql,conn,1,3
IF objRs.Fields(0).Value=True Then
objRs.Fields(0).Value=0
Else
objRs.Fields(0).Value=1
End IF
objRs.Update
msg="审核设置成功"
objRs.Close:set objRs=Nothing
Call MessageBoxOK(msg)
End Sub
Private Sub Up()
'上移
ID=Cint(Request.QueryString("ID"))
set rsUp=server.CreateObject("adodb.recordset")
sql="select orderid from Sbe_Weblink where ID="&ID
rsUp.open sql,conn,1,3
set rs_up=server.CreateObject("adodb.recordset")
sql_up="select top 1 orderid from Sbe_Weblink where orderid >"&rsUp(0)
sql_up=sql_up&" order by orderid desc"
rs_up.open sql_up,conn,1,3
if not rs_up.eof then
Temp_sequence=rs_up(0)
rs_up(0)=rsUp(0)
rs_up.update
rsUp(0)=Temp_sequence
rsUp.update
end if
rs_up.close
set rs_up=nothing
rsUp.close
set rsUp=nothing
'msg="上移成功"
'Call MessageBoxOK(msg)
End Sub
Private Sub Down()
ID=Cint(Request.QueryString("ID"))
set rs_DownSequence=server.CreateObject("adodb.recordset")
sql="select orderid from Sbe_Weblink where id="&id
rs_DownSequence.open sql,conn,1,3
set rs_up=server.CreateObject("adodb.recordset")
sql_up="select top 1 orderid from Sbe_Weblink where orderid <"&rs_DownSequence(0)
sql_up=sql_up&" order by orderid desc"
rs_up.open sql_up,conn,1,3
if not rs_up.eof then
Temp_sequence=rs_up(0)
rs_up(0)=rs_DownSequence(0)
rs_up.update
rs_DownSequence(0)=Temp_sequence
rs_DownSequence.update
end if
rs_up.close
set rs_up=nothing
rs_DownSequence.close
set rs_DownSequence=nothing
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -