fastsave.asp

商机网站8.0,比教完整,可以自己二次开发!

<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<!--#include file="head.asp"-->

<%if request("sitename")="" then%>
<script language=javascript>  
alert( "错误：请输入站点名称！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("siteurl")="" then%>
<script language=javascript>  
alert( "错误：请输入站点地址！"  );
location.href = "javascript:history.back()"  
</script>
<%else%>
<%

set rs = server.CreateObject ("Adodb.recordset")
sql="select * from big where bid="& cstr(request("bid"))
rs.open sql,conn,1,1
bname=rs("bname")
rs.close

if request("sid")=0  then
sname="无"
else
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from small where sid="& request("sid")
rs.open sql,conn,1,1
sname=rs("sname")
rs.close
end if


Abid=request("bid")
Asid=request("sid")
sitename=Hcode(request("sitename"))
siteurl=Hcode(request("siteurl"))
sitecontent=Hcode(request("sitecontent"))
sitetype=request("sitetype")
sitemaster=Hcode(request("sitemaster"))
siteemail=Hcode(request("siteemail"))


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")=Hcode(request("indexpic"))
rs("keywords")=Hcode(request("keywords"))
rs("hits")=0
rs("lhits")=0
rs("bid")=request("bid")
rs("sid")=request("sid")
rs("ifpass")=1
rs("addtime")=now()
rs("eoknum")=request("eoknum")
rs("stopnum")=0
rs("ifp")=1
rs("pspeed")=request("pspeed")
rs("pcontent")=request("pcontent")
rs("pdesign")=request("pdesign")
rs("phot")=request("phot")
rs("pstar")=request("pstar")
rs("vote")=0
rs.update

response.write("<table width=100% border=0 cellspacing=3 cellpadding=3><tr><td height=20>当前位置：<a href=main.asp>管理首页</a> >> 添加178商机网</td></tr></table>")
response.write("<table width=95% cellspacing=1 cellpadding=5 bgcolor=#999999 align=center>")
response.write("<tr bgcolor=#CCCCCC align=center><td colspan=2><b><font color=#cc0000>恭喜，商业信息添加成功！</font></b></td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>链接地址：</td><td><a href="&siteurl&" target=_blank>"&sitename&"</a></td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>所属类别：</td><td><a href=all_list.asp?bid="&Abid&"&sid=0>"&bname&"</a> >> <a href=all_list.asp?bid="&Abid&"&sid="&Asid&">"&sname&"</a></td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>联系人：</td><td><a href=mailto:"&siteemail&">"&sitemaster&"</a></td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>类型：</td><td>"&sitetype&"</td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>简章介绍：</td><td>"&sitecontent&"</td></tr>")
response.write("<tr bgcolor=#eeeeee><td></td><td>【<a href=fastadd.asp?bid="&Abid&"&sid="&Asid&"><font color=red>继续发表</font></a>】&nbsp;&nbsp;&nbsp;&nbsp;【<a href=main.asp><font color=red>返回首页</font></a>】</td></tr>")
response.write("</table>")


rs.close
set rs=nothing

set rs = server.CreateObject ("Adodb.recordset")
sql="select * from big where bid="& cstr(request("bid"))
rs.open sql,conn,1,1
count=rs("bNum")+1
rs.close
sql="update big set bNum="&count&" where bid="&cstr(request("bid"))
conn.execute(sql)

if request("sid")<>0 then
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from small where sid="& cstr(request("sid"))
rs.open sql,conn,1,1
count1=rs("sNum")+1
rs.close
sql="update small set sNum="&count1&" where sid="&cstr(request("sid"))
conn.execute(sql)
end if
end if
%>