📄 addlinks.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<!--#include file="inc.asp"-->
<!--#include file="md5.asp"-->
<title>申请加入友情链接</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.textbox {
font-size: 9pt;
color: #000000;
width: 98%;
height: 200px;
line-height: 18pt;
border: 1pt solid #FFFFFF;
clear: none;
float: none;
}
td {
font-size: 9pt;
color: #003300;
}
.inttext {
font-size: 9pt;
color: #006600;
border: 1px solid #006600;
}
-->
</style>
</head>
<script>
function mfkiqplopen(url,hh,ww){
properties = "width=" + ww;
properties += ",height=" + hh;
properties += ",scrollbars=0,toolbar=0,location=0";
properties += ",directories=0,status=0,menubar=0";
properties += ",resizable=0,left=200,top=100";
window.open (url,null,properties);
}
</script>
<body>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="150" height="400" bgcolor="#FFFFFF"><table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="54" align="center"><a href="all.asp"><img src="images/mfkbb1.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="all-1.asp"><img src="images/mfkbb2.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="all-2.asp"><img src="images/mfkbb3.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="user.asp"><img src="images/mfkbb4.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="addlinks.asp"><img src="images/mfkbb5.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="index.asp"><img src="images/mfkbb6.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="http://www.yongzi.com" target="_blank"><img src="images/mfkbb7.gif" width="137" height="48" border="0"></a></td>
</tr>
</table></td>
<td width="602" valign="top" bgcolor="#FFFFFF"><table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/mfkbbb6.gif" width="600" height="32"></td>
</tr>
<tr>
<td height="360" align="center">
<%
dim action
action=request("action")
select case action
case "go2"
call go2
case "go3"
call go3
case else
call go1
end select
sub go1
mfkiqpl.openmdb
set rs=conn.execute("select id,n6 from setos where id=1")
%>
<table width="400" height="280" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td><img src="images/mfk11.gif" width="400" height="32"></td>
</tr>
<tr>
<td height="210" align="center" bgcolor="#FFFFFF"><textarea name="textarea" readonly class="textbox"><%=rs("n6")%></textarea></td>
</tr>
<tr>
<td height="33" align="center" bgcolor="#FFFFFF"><a href="?action=go2"><img src="images/mfk33.gif" width="55" height="26" border="0"></a></td>
</tr>
</table>
<%
mfkiqpl.closers(rs)
mfkiqpl.closeconn
end sub
sub go2
%>
<table width="400" height="280" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td><img src="images/mfk11-1.gif" width="400" height="32"></td>
</tr>
<tr>
<script>
function check(){
if(form1.textfield1.value=="" || form1.textfield2.value=="" || form1.textfield4.value=="" || form1.textfield5.value=="" || form1.textfield6.value=="" || form1.textfield7.value==""){
alert("请检查您的输入！");
return false;
}
if(form1.textfield3.value==""){
if(confirm('您此次操作没有上传您网站的LOGO？\r\r本次链接将以文字的形式显示！\r\r你确定要这样做吗？'))
form1.submit();
else
return false;
}
form1.submit();
}
</script>
<td height="210" bgcolor="#FFFFFF"><table width="398" border="0" align="center" cellpadding="0" cellspacing="0">
<form action="?action=go3" method="post" name="form1">
<tr>
<td width="89" height="30" align="center" bgcolor="#FFFFFF">网站名称</td>
<td width="306" align="left" bgcolor="#FFFFFF">
<input name="textfield1" type="text" class="inttext" id="textfield1" size="20"></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">网站地址</td>
<td align="left" bgcolor="#FFFFFF">
<input name="textfield2" type="text" class="inttext" value="http://" size="30"></td>
</tr>
<tr>
<td rowspan="2" height="60" align="center" bgcolor="#FFFFFF">网站图标</td>
<td align="left" bgcolor="#FFFFFF"><iframe frameborder=0 height="25" marginheight=0 marginwidth=0 scrolling=no width=300 src="upload.asp"></iframe></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF">
<input name="textfield3" type="text" class="inttext" id="WebLogo" size="20" maxlength="100">（可直接写Logo地址）</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">网站简介</td>
<td align="left" bgcolor="#FFFFFF">
<input name="textfield4" type="text" class="inttext" size="40"></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">你的用户</td>
<td align="left" bgcolor="#FFFFFF">
<input name="textfield5" type="text" class="inttext" size="15"></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">你的密码</td>
<td align="left" bgcolor="#FFFFFF">
<input name="textfield6" type="password" class="inttext" size="15"></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">你的邮件</td>
<td align="left" bgcolor="#FFFFFF">
<input name="textfield7" type="text" class="inttext" value="@" size="30">
<input name="textfield3" type="hidden" class="inttext"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="33" align="center" bgcolor="#FFFFFF"><img src="images/mfk33.gif" width="55" height="26" onClick="check();" style="cursor:hand; "></td>
</tr>
</table>
<%
end sub
sub go3
mfkiqpl.openmdb
dim webname,weburl,webbio,weblogo,webmasterid,webmasterpsd,webmasteremail
webname=mfkiqpl.checkstr(mfkiqpl.getstr("textfield1"))
weburl=mfkiqpl.checkstr(mfkiqpl.getstr("textfield2"))
weblogo=mfkiqpl.checkstr(mfkiqpl.getstr("textfield3"))
weblogo=replace(weblogo,",","")
webbio=mfkiqpl.checkstr(mfkiqpl.getstr("textfield4"))
webmasterid=mfkiqpl.checkstr(mfkiqpl.getstr("textfield5"))
webmasterpsd=md5(mfkiqpl.checkstr(mfkiqpl.getstr("textfield6")))
webmasteremail=mfkiqpl.checkstr(mfkiqpl.getstr("textfield7"))
sql="insert into links (webname,weburl,weblogo,webbio,webmasterid,webmasterpsd,webmasteremail)"&_
"values('"&webname&"','"&weburl&"','"&weblogo&"','"&webbio&"','"&webmasterid&"','"&webmasterpsd&"','"&webmasteremail&"')"
conn.execute(sql)
set rs=conn.execute("select id,n3 from setos where id=1")
%>
<table width="400" height="255" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td><img src="images/mfk44.gif" width="400" height="32"></td>
</tr>
<tr>
<td height="243" align="center" bgcolor="#FFFFFF">
感谢您的加入！<br>
<br>重要提示：
<%
if rs("n3") then
response.write("当前设置为<font color=red>需要验证</font>才显示贵站的链接！<br><br>请等待！我们会在最短的时间内让你本次提交的信息通过验证！<br><br>还请贵站近快做好本站的链接，这是通过验证的凭证！")
else
response.write("当前设置为<font color=red>不需要验证</font>！<br><br>请去查看你的链接情况！<br><br>还请贵站近快做好本站的链接！")
end if
%> </td>
</tr>
</table>
<%
mfkiqpl.closers(rs)
mfkiqpl.closeconn
end sub
%> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -