shopinfo_update.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" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: shopinfo_update.asp
'Version:2.0
'UpdateTime: 2004-10-5 21:13:24
'Script Written by www.aspease.com 
'=========================================================
if rst("submit")=easeupdatebtn then
Set rs = Server.CreateObject("ADODB.recordset")
rs.open "select * from shops where shopownerid="&sqlval(rst("ShopOwerid")),conn,1,3
	if rs.eof then
		response.Write("<script language=javascript>{alert( '" & easeshopinfo_updateerr1 & "');location.href='Shopinfo_update.asp';}</script>")
	else
		if len(rst("ShopName"))>20 or len(rst("ShopDesc"))>200 or len(rst("ShopDeliver"))>200 then
			response.Write("<script language=javascript>{alert( '"&easeshopinfo_updateerr2&" ');location.href='Shopinfo_update.asp';}</script>")
		else	
			RS("ShopName")=rst("ShopName")
			RS("ShopCat")=rst("catid")
			rs("shopdescription")=rst("ShopDesc")
			rs("shopdeliver")=rst("ShopDeliver")
			rs("shoplogo")=rst("imageurl")
			rs.update
			rs.close
			set rs=nothing
			response.Write("<script language=javascript>{alert( '"&easeupdate_aucokstr&"');location.href='Shopinfo_update.asp';}</script>")
	 	End If
		response.end
	end if 
end if
stats=easeshopinfo_updatestats
call activeonline()
sql="select * from shops where shopownerid="&userid
set rs=conn.execute(sql)
if not rs.eof then
	call main()
else
	response.Write("<script language=javascript>{alert( '" & easemyshopnoshop & "');location.href='Shopreg.asp';}</script>")
end if
sub main()
call header()
mytabletop
mynavtop easeshopinfo_updatestats
myrighttop "100%","0","0","b1","style=margin-top:3px"
myrighttr "45,293,228| , , "
myrightfoot
mycontenttop "145,*|"&easeshoptop1&","&easeshoptop2
response.Write("<form name=""myform"" action="""" method=""post"" onsubmit=""return chkNull()"">"&tr2)
response.Write("      <td align=""center"" height=""24"">"&easeshopname&"</td>")
response.Write("      <td height=""24""> ")
response.Write("        <input type=""text"" name=""ShopName"" size=""20"" value=""")
response.Write(rs("ShopName"))
response.Write(""">")
response.Write("        <input type=""hidden"" name=""ShopOwerid"" value=")
response.Write(userid)
response.Write(">")
response.Write("        <font color=""#FF0000"">*</font>"&ctdr&tr2)
response.Write("      <td align=""center"" height=""25"">"&easeshopcatvalue&"</td>")
response.Write("      <td height=""25"">")
response.Write(replace(catlist,rs("shopcat"),rs("shopcat")&" selected"))
response.Write("<font color=""#FF0000"">*</font>"&ctdr&tr2)
response.Write("      <td align=""left"" height=""1"" colspan=""2"" bgcolor=""#C0C0C0"">"&ctdr&tr2)
response.Write("      <td align=""center"" height=""120"">"&easeshopdescstr&"</td>")
response.Write("      <td height=""120"" valign=""middle""> ")
response.Write("        <textarea rows=""6"" name=""ShopDesc"" cols=""40"" wrap=""hard"">")
response.Write( rs("shopdescription"))
response.Write("</textarea>"&ctdr&tr2)
response.Write("      <td align=""center"" height=""81"">"&easeshopdeliverstr&" </td>")
response.Write("      <td height=""81""> ")
response.Write("        <textarea rows=""6"" name=""ShopDeliver"" cols=""40"" wrap=""hard"">")
response.Write(rs("ShopDeliver"))
response.Write("</textarea>"&ctdr&tr2)
response.Write("      <td align=""left"" colspan=""2"" bgcolor=""#C0C0C0"" height=""1"">"&ctdr&tr2)
response.Write("      <td align=""center"" height=""25"">"&easeshopaddr&"</td>")
response.Write("      <td height=""25""> ")
response.Write("        <input name=""state"" type=""text"" disabled value=""")
response.Write( userstate )
response.Write(""" size=""15"">")
response.Write("        <input name=""city"" type=""text"" disabled value=""")
response.Write( usercity )
response.Write(""" size=""15"">"&ctdr&tr2)
response.Write("      <td height=""10"" align=""center"" rowspan=""2"">"&easeshoplogostr&"</td>")
response.Write("      <td height=""10"" valign=""middle""> ")
response.Write("        <INPUT NAME=""imageurl"" TYPE=""TEXT"" value=""")
response.Write(rs("shoplogo"))
response.Write(""" SIZE=""20"" MAXLENGTH=""255"">")
response.Write("        <a href=""Shopinfo_update.asp?t=viewpic#pic"">"&easeseepic&"</a> ")
 If rst("t")="viewpic" Then 
response.Write(" ")
response.Write("        <a href=""#pic""><img src=""")
response.Write(rs("shoplogo"))
response.Write(""" border=""0"" width=234 height=60></a> ")
response.Write("        ")
 End If 
response.Write(" <a name=""pic""></a>"&ctdr&tr2)
response.Write("      <td>")
if fval(websetting(3))=1 then
response.Write("<iframe name=""ad"" frameborder=0 class=tdbg2  height=26 scrolling=no src=upfile.asp?filepath=shopimg></iframe>")
end if
response.Write(ctdr&tr2&tr)
response.Write("      <td height=""1"" colspan=""2"" bgcolor=""#C0C0C0"">"&ctdr&tr2)
response.Write("      <td height=""54"" colspan=""2""> ")
response.Write("        <input type=""checkbox"" name=""chkSelect""  onclick=""chkRead()"" checked>" & easeshopyhxzstr &ctdr&tr1)
response.Write("      <td height=""27""></td>")
response.Write("      <td height=""27"" colspan=2> ")
response.Write("        <input type=""submit"" value=""" & easeupdatebtn & """ name=""submit"">")
response.Write("        &nbsp;&nbsp;&nbsp;&nbsp; ")
response.Write("        <input type=""button"" value=""" & easeresetbtn & """ onclick=""javascript:window.location.href='my.asp'"">"&ctdr)
response.Write("  </form>")
mycontentfoot
mynavfoot
mytablefoot
footer
end sub
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: shopinfo_update.asp
'Version:2.0
'UpdateTime: 2004-10-5 21:13:24
'Script Written by www.aspease.com 
'=========================================================%>