bbr_qiugou_edit.asp

. 缓存处理技术

<!--#include file="top_cnbbr.asp"-->
<!--#include file="chksession.asp"-->
<!--#include file="inc/mypage.asp"-->

<!--#include file="Cnbbr_UserCenter_Left.asp" -->
<script src="js/CheckAll.js"></script>
<script src="js/DelTrue.js"></script>
<%
Dim QGID,QGID_F
QGID=Request.QueryString("QGID")
QGID_F=Request.Form("QGID")

if IsNum(QGID_F) then
   Sql="select qgid,qgtitle,qginfo,qgtype,qgcolor,qgupdatetime from qiugou where qgid="& QGID_F &" and QgOwnerid="& Request.Cookies(super_user)("uid")
   Set Rs=Server.CreateObject("ADODB.RecordSet")
   Rs.Open Sql,conn,1,3
   CnbbrConnTimes
   if Rs.Eof then 
      Call AlertInfo("没有找到此求购信息，请先添加信息！","qiugouadd.asp",1)
   else
      Dim QgTitle,QgType,QgColor,QgInfo
      qgtitle=CheckStr(Trim(Request.Form("qgtitle")))
      qgtype=CheckStr(Trim(Request.Form("qgtype")))
      qgcolor=CheckStr(Trim(Request.Form("qgcolor")))
      qginfo=CheckStr(HtmlEncode(Trim(Request.Form("qginfo"))))

      Rs("qgtitle")=qgtitle
      Rs("qgInfoClass")=qgtype
      Rs("qgcolor")=qgcolor
      Rs("qginfo")=qginfo
      Rs("qgupdatetime")=now()
      Rs.Update
      Call AlertInfo("求购信息更新成功！正在返回列表...","BBR_qiugou_edit.asp",1)
   end if  
end if

Response.Write Cnbbr_Head
With Response
	.Write "<table width="""& Sys_BodyCenterWidth &""" border=""0"" cellspacing=""0"" cellpadding=""0""  align=""center"" class=""td"">" & Vbcrlf
	.Write "  <tr>" & Vbcrlf
	.Write "   <td width=""150"" align=""left"" valign=""top"" class=td>" & Vbcrlf
	 Disp_CnbbrCenterLeft
	.Write "   </td>" & Vbcrlf
	.Write "   <td align=""left"" valign=""top"" class=td>" & Vbcrlf

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||BBRhome.asp|[menu]|我是买家||[menu]||BBR_QiuGou_Edit.asp|[menu]|管理商品求购信息"
	SiteMenu_Right="BBR_QiuGou_Add.asp|[menu]|发布求购信息"
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)


if isNum(QGID) then
   Sql="Select qgid,qgtitle,qginfo,qgtype,qgownerid,qgcolor,qgupdatetime,qgInfoClass from qiugou where QGID="& QGID &" and QgOwnerid="& Request.Cookies(super_user)("uid") &" order by QGID DESC"
else
   Sql="Select qgid,qgtitle,qginfo,qgtype,qgownerid,qgcolor,qgupdatetime,QGInfoCLass from qiugou where QgOwnerid="& Request.Cookies(super_user)("uid")
end if
Dim MP:set MP=New mypage
set rs=MP.Execute(sql,conn,jsPerPage)
CnbbrConnTimes


  .Write "<table cellpadding=0 cellspacing=0 width=98% border=0 align=center class=td>" & Vbcrlf
  .Write "<tr>" & vbcrlf
  .Write "<td align=center height=38 valign=top>" & Vbcrlf

if Rs.Eof then
   Call DispAlert("还没有发布过求购信息，请先<a href=""BBR_QiuGou_Add.asp"">发布信息</a>。")
else
   if isNum(QGID) then

   .Write "<table cellpadding=0 cellspacing=1 width=100% border=0 align=center class=tablebg>" & Vbcrlf
   .Write "<form name=form1 action=""BBR_QiuGou_Edit.asp"" method=post>"& vbcrlf
   .Write "<tr class=titletd>" & Vbcrlf
   .Write "<td colspan=2 align=center><b>修改求购信息</b></td>" & Vbcrlf
   .Write "</tr>" & Vbcrlf
   .Write "<tr class=td>" & Vbcrlf
   .Write "<td width=268 align=right>信息标题：</td>" & Vbcrlf
   .Write "<td align=left><input name=qgtitle type=text value="& Rs("qgtitle") &" size=30></td>" & Vbcrlf
   .Write "</tr>" & Vbcrlf
   .Write "<tr class=td>" & Vbcrlf
   .Write "<td align=right>信息类型：</td>" & Vbcrlf
   .Write "<td align=left>" & Vbcrlf
   .Write "<select name=qgtype>" & Vbcrlf
   .Write InfoClass(Rs("QgInfoClass"),1) 
   .Write "</select>" & Vbcrlf
   .Write "</td>" & Vbcrlf
   .Write "</tr>" & Vbcrlf
   .Write "<tr class=td>" & Vbcrlf
   .Write "<td align=right>标题颜色：</td>" & Vbcrlf
   .Write "<td align=left>" & Vbcrlf
   .Write "<select name=qgcolor>" & Vbcrlf
   Dim Cnbbr_Str1,Cnbbr_Str2,Cnbbr_Str3
   Cnbbr_Str1=Rs("qgcolor")
   Cnbbr_Str2="black,red,blue"
   Cnbbr_Str3="黑色,红色,蓝色"
   Call SelectOper(Cnbbr_Str1,Cnbbr_Str2,Cnbbr_Str3)
   .Write "</select>" & Vbcrlf
   .Write "</td>" & Vbcrlf
   .Write "</tr>" & Vbcrlf
   .Write "<tr class=td>" & Vbcrlf
   .Write "<td align=right>信息内容：</td>" & Vbcrlf
   .Write "<td align=left><textarea name=qginfo cols=30 rows=6 nowrap>"& Rs("qginfo") &"</textarea></td>" & Vbcrlf
   .Write "</tr>" & Vbcrlf
   .Write "<tr class=td>" & Vbcrlf
   .Write "<td colspan=2 align=center height=38><input type=submit name=submit value=""确定修改信息""> &nbsp; <input type=Button name=B2 value=""返回列表"" onclick=""javascript: location.href='BBR_QiuGou_Edit.asp';""></td>" & Vbcrlf
   .Write "</tr>" & Vbcrlf
   .Write "<input name=qgid type=hidden value="& Rs("qgid") &">" & Vbcrlf
   .Write "</form>" & Vbcrlf
   .Write "</table>" & Vbcrlf
   else

  .Write "<table cellpadding=0 cellspacing=1 width=100% border=0 align=center class=tablebg>"
  .Write "<form name=form1 action=""del.asp"" method=post>"& vbcrlf
  .Write "<tr class=Td><td colspan=4><input name=deltrue type=button value=""确定删除"" OnClick=""return DelTrue(this.form,'del.asp')""></td></tr>" & Vbcrlf
  .Write "<tr class=Titletd>" & Vbcrlf
  .Write "<td width=3% align=center><input type=""checkbox"" name=""chkAll"" value=""on"" onClick=""CheckAll(this.form)"" Style=""border: 0px;""></td>" & Vbcrlf
  .Write "<td width=70% align=center><b>信息标题</b></td>" & Vbcrlf
  .Write "<td width=8% align=center><b>类别</b></td>" & Vbcrlf
  .Write "<td align=center><b>更新时间</b></td>" & Vbcrlf
  .Write "</tr>" & Vbcrlf
  Do While not Rs.Eof
    .Write "<tr class=Td>" & Vbcrlf
    .Write "<td align=center><input name=id type=checkbox value="& rs("qgid") &" Style=""border: 0px;""></td>" & Vbcrlf
    .Write "<td align=left><a href=""?QGID="& Rs("qgid") &""">["& Rs("qgtype") &"] <font color="& Rs("qgcolor") &">"& Rs("qgtitle") &"</font></a></td>" & Vbcrlf
    .Write "<td align=center>"& Rs("qgtype") &"</td>" & Vbcrlf
    .Write "<td align=center>"& Rs("qgupdatetime") &"</td>" & Vbcrlf
    .Write "</tr>" & Vbcrlf
  Rs.MoveNext
  Loop
  .Write"<input name=act type=hidden value=qg>"& vbcrlf
  .Write"</form>" & vbcrlf
  .Write "<tr class=TD>" & Vbcrlf
  .Write "<td colspan=4 width=100% align=center>"& Vbcrlf
  .Write "<table cellpadding=0 cellspacing=0 width=100% align=center border=0 class=bg_aaaaaa style=""border: 1px #dfdfdf solid;"">" & vbcrlf
  .Write "<tr class=titletd1><td width=100% align=center>"
  .Write MP.PageDispaly()
  .Write "</td></tr>" & vbcrlf
  .Write "</table>" & vbcrlf
  .Write "</td>"& vbcrlf
  .Write "</tr>" & Vbcrlf
  .Write "</table>" & Vbcrlf
  end if

End if

   .Write "</td>" & Vbcrlf
   .Write "</tr>" & Vbcrlf
   .Write "</table>" & Vbcrlf

   .Write "</td>" & Vbcrlf
   .Write "</tr>" & Vbcrlf
   .Write "</table>" & Vbcrlf

End With
Response.Write Cnbbr_Bottom 

%>