link.asp

信运网店系统是一套功能完善、简洁美观

<!--#include file="email.asp"-->

<% ip=Request.serverVariables("REMOTE_ADDR")
dim myoe_class,myoe_name,myoe_url,myoe_logo,myoe_qq,myoe_mail,myoe_zhu
myoe_class=Trim(Request.Form("li"))
myoe_name=Trim(Request.Form("name"))
myoe_url=Trim(Request.Form("url"))
myoe_logo=Trim(Request.Form("logo"))
myoe_qq=Trim(Request.Form("qq"))
myoe_mail=Trim(Request.Form("mail"))
myoe_zhu=Trim(Request.Form("zhu"))
myoe_ip=Trim(Request.Form("ip"))

if myoe_name="" or myoe_url="http://" or myoe_mail="" then
errer="必填项目.请认真填写"
else
if Len(myoe_mail)<5 then
errer2="请检查邮件地址"
else

set conn=server.createobject("ADODB.CONNECTION")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("links.mdb")
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from myoe_links"
rs.open sql,conn,1,3
rs.addnew
rs(1)=myoe_class
rs(2)=myoe_name
rs(3)=myoe_url
rs(4)=myoe_logo
rs(5)=myoe_qq
rs(6)=myoe_mail
rs(7)=myoe_zhu
rs(8)=myoe_ip
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if

if errer<>""then
Response.Write(errer)
else
if errer2<>""then
Response.Write(errer2)
else
Response.Redirect "look.asp"
end if
end if
%>

&nbsp;<a href="javascript:history.go(-1)" style="font-size: 10pt">返回再写</a>