📄 add.asp
字号:
<html><head><title>178商机网--免费发布商业信息|因为专业所以最好</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<link href="css/main.css" rel="stylesheet">
<body leftmargin="0" topmargin="0" ><div align=center>
<!--#include file="conn.asp"-->
<!--#include file="head.asp"-->
<!--#include file="admin/char.asp"-->
<script language="JavaScript">
function b_isnull(str)
{
var index=0;
str_get='';
while(index<str.length)
{
if(str.charAt(index)!=' ')
str_get=str_get+str.charAt(index);
else
str_get=str_get+'';
index=index+1;
}
if(str_get=='')
return (true);
else
return (false);
}
function i_length(str)
{ //返回str长度---中文2位。
var ret=0;
for(var i=0;i<str.length;i++)
ret+=(str.charCodeAt(i)>255?2:1);
return(ret);
}
function email_isok(str)
{
reg = new RegExp("^([_a-z0-9]+([\._a-z0-9-]+)*)@([a-z0-9]{2,}(\.[a-z0-9-]{2,})*\.[a-z]{2,3})$") ;
if (!reg.test(str)) {
alert('email地址不合法！');
document.add.siteemail.focus();
return (false);
}
return(true);
}
function form_isok()
{
if(b_isnull(document.add.sitename.value))
{
alert('产品名称不能为空；');
document.add.sitename.focus();
return (false);
}
if(i_length(document.add.sitename.value)>40)
{
alert('产品名称过长，请少于40字节');
document.add.sitename.focus();
return (false);
}
if(document.add.siteurl.value == "")
{
alert('产品信息链接不能为空；');
document.add.siteurl.focus();
return (false);
}
if(document.add.sitemaster.value == "")
{
alert('联系人不能为空；');
document.add.sitemaster.focus();
return (false);
}
if(document.add.siteemail.value == "")
{
alert('联系邮件不能为空；');
document.add.siteemail.focus();
return (false);
}
if(document.add.sitecontent.value == "")
{
alert('产品简介不能为空；');
document.add.sitecontent.focus();
return (false);
}
if(i_length(document.add.sitecontent.value)>80)
{
alert('产品名称过长，请少于80字节');
document.add.sitecontent.focus();
return (false);
}
return (email_isok(document.add.siteemail.value));
}
</script>
<%
if Request("action") ="step1" then
call step1()
elseif Request("action") ="step2" then
call step2()
elseif Request("action") ="step3" then
call step3()
elseif Request("action") ="step4" then
call step4()
else
call step1()
end if%>
<%sub step1()%>
<table width=760 cellspacing=0 cellpadding=0><tr><td width=580>
<table width=100% cellpadding=1 cellspacing=0 bgcolor=CCCCCC>
<tr>
<td height="25" align=center valign="middle" background="img/net_13.gif" bgcolor="dddddd">::::::::::::::::::::
商 业 信 息 登 记 ::::::::::::::::::::</td>
</tr></table>
<br><table width="100%" border="0">
<tr><td><ul>1、严禁假冒伪劣信息发布</td></tr>
<tr><td><ul>2、不能含有违法或危害国家安全的内容</td></tr>
<tr><td><ul>3、不能含有色情淫秽的内容</td></tr>
<tr><td><ul>4、是否发布你的产品商业信息，“178商机网”具有最终决定权</td></tr>
<tr><td> </td></tr>
<tr><td>
<p align="center"><font color="#FF0000"><span lang="zh-cn">
请慎重发布信息，一旦发布，只有管理员才可修改！</span></font></td></tr>
<tr><td> </td></tr>
<tr><td><font color="#0033CC">第一步：选择与产品最相关的总类</font></td></tr></table>
<br>
<table width="100%">
<form name=form1 method=POST action="ADD.ASP?action=step2">
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from big order by bid"
rs.Open sql,conn,1,1
do while not rs.EOF %>
<tr height=22><td ><input type="radio" name="bid" value="<%=rs("bid")%>"><%=rs("bname")%></td>
<%rs.MoveNext()
if not rs.eof then%>
<td ><input type="radio" name="bid" value="<%=rs("bid")%>"><%=rs("bname")%></td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td ><input type="radio" name="bid" value="<%=rs("bid")%>"><%=rs("bname")%></td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td ><input type="radio" name="bid" value="<%=rs("bid")%>"><%=rs("bname")%></td>
<%rs.MoveNext()
end if%>
</tr>
<%loop
rs.Close %>
<tr><td colspan=6><center><br><input type="submit" name="Submit2" value=" 下一步>> "></td></tr>
</form></table>
</td><td width=15 background="img/showbg.gif"></td><td width=165></td></tr></table>
<br><table width=760 cellspacing=0 cellpadding=0><tr><td bgcolor=dddddd height=5></td></tr></table>
<!--#include file="end.asp"-->
</div></body></html>
<%end sub%>
<%sub step2()%>
<%if request("bid")="" then%>
<script language=javascript>
alert( "错误：请选择总分类！" );
location.href = "javascript:history.back()"
</script>
<%else%>
<table width=760 cellspacing=0 cellpadding=0><tr><td width=580>
<table width=100% cellpadding=1 cellspacing=0 bgcolor=CCCCCC>
<tr>
<td height="25" align=center valign="middle" background="img/net_13.gif" bgcolor="dddddd">::::::::::::::::::::
商 业 信 息 登 记 ::::::::::::::::::::</td>
</tr></table>
<br><table width="100%" border="0"><tr><td><font color="#0033CC">第二步：选择与产品最相关的子类</font></td></tr></table>
<br>
<table width="100%">
<form name=form1 method=POST action="add.asp?action=step3&bid=<%=request("bid")%>">
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from small where bid="&request("bid")
rs.Open sql,conn,1,1
do while not rs.EOF %>
<tr height=22><td ><input type="radio" name="sid" value="<%=rs("sid")%>"><%=rs("sname")%></td>
<%rs.MoveNext()
if not rs.eof then%>
<td ><input type="radio" name="sid" value="<%=rs("sid")%>"><%=rs("sname")%></td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td ><input type="radio" name="sid" value="<%=rs("sid")%>"><%=rs("sname")%></td>
<%rs.MoveNext()
end if%>
<%if not rs.eof then%>
<td ><input type="radio" name="sid" value="<%=rs("sid")%>"><%=rs("sname")%></td>
<%rs.MoveNext()
end if%>
</tr>
<%loop
rs.Close %>
<tr><td colspan=6><center><br><input type="submit" name="Submit2" value=" 下一步>> "></td></tr>
</form></table>
</td><td width=15 background="img/showbg.gif"></td><td width=165></td></tr></table>
<br><table width=760 cellspacing=0 cellpadding=0><tr><td bgcolor=dddddd height=5></td></tr></table>
<!--#include file="end.asp"-->
</div></body></html>
<%end if
end sub%>
<%sub step3()%>
<%if request("sid")="" then%>
<script language=javascript>
alert( "错误：请选择所属子类！" );
location.href = "javascript:history.back()"
</script>
<%else%>
<table width=760 cellspacing=0 cellpadding=0><tr><td width=580>
<table width=100% cellpadding=1 cellspacing=0 bgcolor=CCCCCC>
<tr>
<td height="25" align=center valign="middle" background="img/net_13.gif" bgcolor="dddddd">::::::::::::::::::::
商 业 信 息 登 记 ::::::::::::::::::::</td>
</tr></table>
<br><table width="100%" border="0"><tr><td><font color="#0033CC">第三步：填写产品详细资料</font></td></tr></table>
<br>
<table align=center>
<form action="add.asp?action=step4&bid=<%=request("bid")%>&sid=<%=request("sid")%>" method=POST name="add" onsubmit="return form_isok();" >
<tr><td align=right valign=top>信息所属类别：</td><td>
<%set rs1 = server.CreateObject ("Adodb.recordset")
sql1 = "select bid,bname from [big] where bid="&request("bid")
rs1.open sql1,conn,1,1
bname=rs1("bname")
rs1.close
sql1 = "select sid,sname from [small] where sid="&request("sid")
rs1.open sql1,conn,1,1
sname=rs1("sname")
rs1.close
%>
<font color=cc0000><%=bname%> >> <%=sname%></font><br><br>
</td></tr>
<tr><td align=right valign=top>信息产品名称：</td><td>
<p style="margin-top: 0; margin-bottom: 0"><input type="text" name="sitename" size=50><br><font color=999999>
（不超过10个汉字）如：178商机网<br><br></font></p></td></tr>
<tr><td align=right>产品信息链接：<p><font color="#FF0000">（非常重要）</font></td><td>
<p style="line-height: 150%; margin-top: 0; margin-bottom: 0"><input type="text" name="siteurl" size=50 value="http://"><br><font color=999999>如：<a href="http://www.178-178.com">http://www.178-178.com</a></font></p>
<table border="1" width="100%">
<tr>
<td bordercolor="#FF0000" width="0" height="50">
<p align="center" style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<b><font color="#FF0000"><span lang="zh-cn">此广告位置招“虚拟主机提供商”</span></font></b></p>
<p align="center" style="line-height: 150%; margin-top: 0; margin-bottom: 0">
<span lang="zh-cn"><font color="#FF0000"><b>联系QQ：281118406</b></font></span></td>
</tr>
</table>
</td></tr>
<tr><td align=right> </td><td> </td></tr>
<tr><td align=right><font color="#FF0000">信 息 类 别：</font></td><td><select name=sitelan><option value=1>连锁<option value=2>加盟<option value=3>代理<option value=4>其他</select>
单位类型：<select name=sitetype><option value=生产企业>生产企业<option value=销售企业>销售企业<option value=商业公司>商业公司<option value=其它>其它</select>
</td></tr>
<tr><td align=right>联 系 人：</td><td><input type="text" name="sitemaster" size=20></td></tr>
<tr><td align=right>联 系 邮 件：</td><td><input type="text" name="siteemail" size=50></td></tr>
<tr><td align=right>产 品 介 绍：</td><td><textarea name="sitecontent" cols="42" rows="4">完整填写产品信息、代理要求、联系方式等内容</textarea></td></tr>
<tr><td></td><td><input type="submit" name="Submit" value=" 完成 "> <input type="reset" name="Submit2" value=" 重填 "></td></tr>
</form>
</table>
</td><td width=15 background="img/showbg.gif"></td><td width=165></td></tr></table>
<br><table width=760 cellspacing=0 cellpadding=0><tr><td bgcolor=dddddd height=5></td></tr></table>
<!--#include file="end.asp"-->
</div></body></html>
<%
end if
end sub%>
<%sub step4()
siteurl=request("siteurl")
set rs2=server.createobject("adodb.recordset")
sql2="select * from [site] where siteurl='" &siteurl&"'"
rs2.open sql2,conn,1,1
if not rs2.eof and not rs2.bof then
rs2.close
set rs2=nothing%>
<script language=javascript>
alert( "产品已存在，请不要重复登记！" );
location.href = "javascript:history.back()"
</script>
<%
else
set rs=server.createobject("adodb.recordset")
sql="select * from site"
rs.open sql,conn,1,3
rs.addnew
rs("sitename")=Hcode(request("sitename"))
rs("siteurl")=Hcode(request("siteurl"))
rs("sitecontent")=Hcode(request("sitecontent"))
rs("sitelan")=request("sitelan")
rs("sitemaster")=Hcode(request("sitemaster"))
rs("siteemail")=Hcode(request("siteemail"))
rs("sitetype")=request("sitetype")
rs("indexpic")="http://"
rs("hits")=0
rs("lhits")=0
rs("bid")=request("bid")
rs("sid")=request("sid")
rs("ifpass")=0
rs("addtime")=now()
rs("stopnum")=0
rs("ifp")=0
rs("pspeed")=0
rs("pcontent")=0
rs("pdesign")=0
rs("phot")=0
rs("pstar")=0
rs("vote")=0
rs.update
%>
<table width=760 cellspacing=0 cellpadding=0><tr><td width=580>
<table width=100% cellpadding=1 cellspacing=0 bgcolor=CCCCCC>
<tr>
<td height="25" align=center valign="middle" background="img/net_13.gif" bgcolor="dddddd">::::::::::::::::::::
商业信息登录 ::::::::::::::::::::</td>
</tr></table>
<br><table width="100%" border="0"><tr><td align=center><font color=red style="font-size:14px">恭喜您，
你的商业信息 [<font color=000000><b><%=Hcode(request("sitename"))%></b></font>] 登记成功!</font></td></tr></table>
<br>
<table align=center width=100% cellspacing=1 cellpadding=3 bgcolor=cccccc>
<tr bgcolor=ffffff><td align=right bgcolor=f8f8f8 height="30">产品类别：</td>
<td height="30">
<%set rs1 = server.CreateObject ("Adodb.recordset")
sql1 = "select bid,bname from [big] where bid="&request("bid")
rs1.open sql1,conn,1,1
bname=rs1("bname")
rs1.close
sql1 = "select sid,sname from [small] where sid="&request("sid")
rs1.open sql1,conn,1,1
sname=rs1("sname")
rs1.close
%>
<%=bname%> >> <%=sname%>
</td></tr>
<tr bgcolor=ffffff><td align=right width=75 bgcolor=f8f8f8 height="30">
<p>产品名称：</td><td height="30"><font color=cc0000><%=Hcode(request("sitename"))%></td></tr>
<tr bgcolor=ffffff><td align=right bgcolor=f8f8f8 height="30">信息链接：</td>
<td height="30"><%=Hcode(request("siteurl"))%></td></tr>
<tr bgcolor=ffffff><td align=right bgcolor=f8f8f8 height="30">单位类型：</td>
<td height="30"><%=request("sitetype")%></td></tr>
<tr bgcolor=ffffff><td align=right bgcolor=f8f8f8 height="30">联系人：</td>
<td height="30"><%=Hcode(request("sitemaster"))%></td></tr>
<tr bgcolor=ffffff><td align=right bgcolor=f8f8f8 height="30">联系邮件：</td>
<td height="30"><%=Hcode(request("siteemail"))%></td></tr>
<tr bgcolor=ffffff><td align=right valign=top bgcolor=f8f8f8 height="30">产品介绍：</td>
<td height="30"><%=Hcode(request("sitecontent"))%></td></tr>
<%sql1 = "select top 1 id from [site] order by id desc"
rs1.open sql1,conn,1,1
coolid=rs1("id")
rs1.close
%>
<tr bgcolor=ffffff><td align=right valign=top bgcolor=f8f8f8 height="30">
<font color="#FF0000">信息编号：</font></td><td height="30"><%=coolid%></td></tr>
<tr bgcolor=ffffff><td height="30"> 重要提示：</td>
<td height="30">
<font color="#FF0000"><span lang="zh-cn">经管理员验证后，马上发布你的信息！</span></font><p style="line-height: 150%"><font color="#FF0000">请将你的信息
介绍图片
（按140*80大小,gif格式/jpg格式）发送到邮箱 </font></a>webmaster@178-178.com<font color="#FF0000"> （注明信息编号）</font></td></tr>
<tr bgcolor=ffffff><td> </td><td> </td></tr>
<tr bgcolor=ffffff><td></td><td><input type=button value=" 完成注册 " onClick="location='./index.asp'" name="button"></td></tr>
</table>
</td><td width=15 background="img/showbg.gif"></td><td width=165></td></tr></table>
<br><table width=760 cellspacing=0 cellpadding=0><tr><td bgcolor=dddddd height=5></td></tr></table>
<!--#include file="end.asp"-->
</div></body></html>
<%end if%>
<%end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -