shopreg.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/myinc.asp" -->
<!-- #include file="inc/function.asp" -->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: shopreg.asp
'Version:2.0
'UpdateTime: 2004-10-5 21:55:30
'Script Written by www.aspease.com 
'=========================================================
if not chkregValidated then
	response.redirect "info_change.asp"
end if
stats=easeshopregstats
header
if rst("submit")<>"" then
if not ChkPost() then
Response.write"<script>alert(""错误"");window.close();</script>"
Response.end
end if
verifycode=replace(trim(Request("verifycode")),"'","")
if verifycode<>CStr(session("getCode"))  then 
Response.write"<script>alert("""&easeinfochgpwderr4&""");location.href=""shopreg.asp"";</script>"
Response.end
end if
Set rs = Server.CreateObject("ADODB.recordset")
rs.open "select * from shops where (shopid is null)",conn,1,3
rs.addnew
rs("shopownerid")=rst("ShopOwerid")
RS("ShopName")=rst("ShopName")
RS("ShopCat")=rst("catid")
rs("shopdescription")=rst("ShopDesc")
rs("shopnotice")=rst("ShopNotice")
rs("shopdeliver")=rst("ShopDeliver")
rs("shopgrade")=0
if trim(rst("imageurl"))<>"" then
	rs("shoplogo")=rst("imageurl")
end if
rs("shopopenDate")=now()
rs.update
rs.close
set rs=nothing
response.Write("<script language=javascript>{alert( '"&easeshopregokstr&"');location.href='Shopinfo_update.asp';}</script>")
response.End()
footer
end if
set rs=conn.execute("select regcity,regstate from users where regid="&userid)
sql1="select * from shops where shopownerid="&sqlval(userid)
set rs1=conn.execute(sql1)
	if not rs1.eof then
		response.Write("<script language=javascript>{alert( '"&easeshopregerrstr&"');location.href='myShop.asp';}</script>")
		response.End()
 	End If
mytabletop
mynavtop easeshopregstats 
mycontenttop "100%|"&easeregtop
response.Write(aspeasetablehopen&"  <form name=""myform"" action=""ShopReg.asp"" method=""post"" onsubmit=""return chkNull()"">")
response.Write(tr2&"      <td width=""245"" align=""left"" height=""24"">"& easeshopname & "</td>")
response.Write("      <td height=""24""> ")
response.Write("        <input type=""text"" name=""ShopName"" size=""20"" value=""")
response.Write( ShopName )
response.Write(""">")
response.Write("        <input type=""hidden"" name=""ShopOwerid"" value=")
response.Write(userid)
response.Write(">")
response.Write("        <font color=""#FF0000"">*</font></td>")
response.Write("    </tr>" & tr2)
response.Write("      <td align=""left"" height=""25"">"&easeshopcatvalue&"</td>")
response.Write("      <td height=""25""> ")
response.Write(catlist)
response.Write("        <font color=""#FF0000"">*</font></td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=""left"" height=""1"" colspan=""2"" bgcolor=""#C0C0C0""></td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=""left"">"&easeshopdescstr)
response.Write("      </td>")
response.Write("      <td valign=""top""> ")
response.Write("        <textarea rows=""4"" name=""ShopDesc"" cols=""40"" wrap=""hard"">")
response.Write( ShopDesc )
response.Write("</textarea>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=""left"" colspan=""2"" bgcolor=""#C0C0C0"" height=""1""></td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=""left"">"&easeshopnewsstr)
response.Write("      </td>")
response.Write("      <td> ")
response.Write("        <textarea rows=""4"" name=""ShopNotice"" cols=""40"" wrap=""hard"">")
response.Write(ShopNotice)
response.Write("</textarea>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td align=""left"" colspan=""2"" bgcolor=""#C0C0C0"" height=""1""></td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=""left"">" & easeshopdeliverstr)
response.Write("      </td>")
response.Write("      <td> ")
response.Write("        <textarea rows=""4"" name=""ShopDeliver"" cols=""40"">")
response.Write(ShopDeliver)
response.Write("</textarea>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td align=""left"" height=""1"" colspan=""2"" bgcolor=""#C0C0C0""></td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=""left"" height=""25"">"&easeshopaddr&"</td>")
response.Write("      <td height=""25""> ")
response.Write("        <input name=""state"" type=""text"" disabled value=""")
response.Write( rs("regstate") )
response.Write(""" size=""15"">")
response.Write("        <input name=""city"" type=""text"" disabled value=""")
response.Write( rs("regcity") )
response.Write(""" size=""15"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td height=""10"">"&easeshoplogostr&"</td>")
response.Write("      <td height=""10""> ")
response.Write("        <INPUT NAME=""imageurl"" TYPE=""TEXT"" id=""imageurl"" value=""")
response.Write(imageurl)
response.Write(""" SIZE=""20"" MAXLENGTH=""255"">")
response.Write("        ")
if fval(websetting(3))=1 then
response.Write("<iframe name=""ad"" frameborder=0  height=26 scrolling=no src=upfile.asp?filepath=shopimg></iframe>")
end if
response.Write("	")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td height=""1"" colspan=""2"" bgcolor=""#C0C0C0""></td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td>"&easeinfochgpwd4&"</td>")
response.Write("      <td> ")
response.Write("        <input name=""verifycode"" type=""text"" id=""verifycode"" size=""20"">")
response.Write("        <font color=""#FF0000"">*</font> <img src=""inc/verifycode.asp""></td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td colspan=""2""> ")
response.Write("        <input type=""checkbox"" name=""chkSelect""  onclick=""chkRead()"" checked>" & easeshopyhxzstr)
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td align=""left"" height=""1"" colspan=""2"" bgcolor=""#C0C0C0""></td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg1> ")
response.Write("      <td height=""27""></td>")
response.Write("      <td height=""27""> ")
response.Write("        <input type=""submit"" value="""&easesubmitbutton&""" name=""submit"">")
response.Write("        &nbsp;&nbsp;&nbsp;&nbsp; ")
response.Write("        <input type=""button"" value="""&easeresetbtn&""" onclick=""javascript:window.location.href='index.asp'"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("  </form>"&aspeasetableclose)
mynavfoot
mytablefoot
call activeonline()
footer
response.Write(" <script language=""javascript"">")
response.Write(chr(10))
response.Write("	function chkRead()")
response.Write(chr(10))
response.Write("	{")
response.Write(chr(10))
response.Write("		var doc;")
response.Write(chr(10))
response.Write("		doc = document.myform;")
response.Write(chr(10))
response.Write("		if (doc.chkSelect.checked==true)")
response.Write(chr(10))
response.Write("		{")
response.Write(chr(10))
response.Write("			doc.submit.disabled=false;			")
response.Write(chr(10))
response.Write("		}")
response.Write(chr(10))
response.Write("		else")
response.Write(chr(10))
response.Write("		{")
response.Write(chr(10))
response.Write("			doc.submit.disabled=true;			")
response.Write(chr(10))
response.Write("		}		")
response.Write(chr(10))
response.Write("	}")
response.Write(chr(10))
response.Write("	function chkNull()")
response.Write(chr(10))
response.Write("	{")
response.Write(chr(10))
response.Write("		var doc;")
response.Write(chr(10))
response.Write("		doc = document.myform;")
response.Write(chr(10))
response.Write("		if (doc.ShopName.value=="""")")
response.Write(chr(10))
response.Write("		{")
response.Write(chr(10))
response.Write("			alert("""&easeshopname&easenotnullname&""");")
response.Write(chr(10))
response.Write("			doc.ShopName.select();")
response.Write(chr(10))
response.Write("			doc.ShopName.focus();")
response.Write(chr(10))
response.Write("			return false;")
response.Write(chr(10))
response.Write("		}")
response.Write(chr(10))
response.Write("	}	")
response.Write(chr(10))
response.Write("</script>")
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: shopreg.asp
'Version:2.0
'UpdateTime: 2004-10-5 21:55:30
'Script Written by www.aspease.com 
'=========================================================%>