shopnews_manage.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: shopnews_manage.asp
'Version:2.0
'UpdateTime: 2004-10-4 18:41:00
'Script Written by www.aspease.com 
'=========================================================
stats=easeshopnewsstats
sql="select * from shops left join users on shops.shopownerid=users.regID where users.regUsername='"&user&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof then
response.Write("<script language=javascript>{alert( '" & easemyshopnotopen & "');location.href='Shopreg.asp';}</script>")
response.End()
end if
if rst("submit")<>"" then
call uptbl()
else
call main()
end if
sub uptbl()
conn.execute("update shops set shopnotice="&sqlstr(rst("shopnotice"))&" where shopownerid="&sqlval(rs("regid")))
response.Write("<script language=javascript>{alert( '" & easeshopnewsokstr & "');location.href='Shopnews_manage.asp';}</script>")
end sub
sub main()
call header()
mytabletop
mynavtop easeshopnewsstats
mycontenttop "*,50%,45%| ," & easeshopnewscontenttop
response.Write("<form name=""frmShop"" action=""ShopNews_manage.asp?action=save"" method=""post"">")
response.write(tr2&"<td> &nbsp;</td><td><textarea rows=""5"" name=""ShopNotice"" cols=""40"" wrap=hard>" & rs("ShopNotice") &" </textarea></td>")
response.write("<td align=left>" & easeshopnewsdesc & "</td></tr>"&tr2)
response.Write("            <td colspan=3>   &nbsp;&nbsp;&nbsp;&nbsp;       &nbsp;&nbsp;&nbsp;&nbsp;   ")
response.Write("              <input type=""submit"" value=""" & easeupdatebtn & """ name=""submit"">")
response.Write("&nbsp;&nbsp;&nbsp;&nbsp; <input type=""button"" value=""" & easeresetbtn & """ onclick=""javascript:window.location.href='my.asp'"">"&ctdr)
response.write "  </form>"
mycontentfoot
mynavfoot
mytablefoot
call activeonline()
footer
end sub%>