<% id=trim(request("id")) session("keepshop_backid")=request("id") if Not isChkInteger(id) then %> <% response.end end if set rs=server.createobject("adodb.recordset") rs.open "select * from shop_books where noshow=0 and iscancel=0 and bookid="&request("id"),conn,1,3 if not rs.eof then nclassid = rs("nclassid") anclassid = rs("anclassid") hots = int(rs("hots")) shop_keyword=rs("bookname") shop_descritions=rs("bookname")&","&rs("bookcontent") pagetitle=rs("bookname") else %> <% response.end end if rs.close rs.open "select * from shop_nclass where nclassid="&nclassid,conn,1,3 if not rs.eof then if trim(rs("small_class_title"))<>"" then temp_webname = trim(rs("small_class_title")) end if if trim(rs("small_class_keyword"))<>"" then temp_shop_keyword = trim(rs("small_class_keyword")) end if if trim(rs("small_class_title"))<>"" then temp_shop_descritions = trim(rs("small_class_descritions")) end if if trim(rs("small_payment_mail"))<>"" then temp_payment_mail = trim(rs("small_payment_mail")) end if if trim(rs("small_class_currency"))<>"" then temp_shop_currency = trim(rs("small_class_currency")) end if end if rs.close rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,3 if not rs.eof then if trim(rs("big_class_title"))<>"" and trim(temp_webname)="" then temp_webname = trim(rs("big_class_title")) end if if trim(rs("big_class_keyword"))<>"" and trim(temp_shop_keyword)="" then temp_shop_keyword = temp_shop_keyword&","&trim(rs("big_class_keyword")) end if if trim(rs("big_class_title"))<>"" and trim(temp_shop_descritions)="" then temp_shop_descritions =temp_shop_descritions&","&trim(rs("big_class_descritions")) end if if trim(rs("big_payment_mail"))<>"" and trim(temp_payment_mail)="" then temp_payment_mail = trim(rs("big_payment_mail")) end if if trim(rs("big_class_currency"))<>"" and temp_shop_currency="" then temp_shop_currency = trim(rs("big_class_currency")) end if end if rs.close set rs = nothing shop_keyword=shop_keyword&","&temp_shop_keyword shop_descritions=shop_descritions&","&temp_shop_descritions %> <%=nohtml(pagetitle)%> <% session("backid")=request("id") page_top() %>
<%page_left()%>
<% if Not isChkInteger(request("id")) then %> <% response.end end if set rs=server.createobject("adodb.recordset") rs.open "select * from shop_books where bookid="&request("id"),conn,1,3 if rs.recordcount=0 then %> <% else %> <%end if%>
Parameter is Error,Please Contact Web Master
<% if request("sendmail") then ckyz=Cint(left(request.form("yz"),4)) if not isNumeric(ckyz) then response.write "" response.end end if if int(session("GetCode"))<>ckyz then response.write "" response.end end if name=request("name") tel=request("tel") email=Kongge(request("email")) amount=request("amount") price=request("price") product_code=request("product_code") product_name=request("product_name") comment=request("comment") If Email<>"" then '1@1.cn If Instr(Email,"@")<2 or Instr(Email,".")<2 then Call ShowInfo("
  • Email is error",1) End if End if Call LenCheck(Email,6,48,"Email") Call ErrCheck(email,"Email") If Email="" then Call ShowInfo("
  • Email is empty",1) End if Call LenCheck(name,2,30,"Name") Call LenCheck(tel,3,30,"Tel") Call LenCheck(amount,0,50,"Amount") Call LenCheck(price,0,50,"Price") Call LenCheck(product_code,0,30,"Product code") Call LenCheck(product_name,3,50,"Product name") Call LenCheck(comment,0,300,"Comment") boos_mail_body="Name:"&name&"
    Email:"&email&"
    Tel:"&tel&"
    Amount:"&amount&"
    Code:"&product_code&"
    Price:"&price&"
    Product name:"&product_name&"
    Comment:"&HTMLEncode3(comment) Mail_body="Hello:"&name&"
    you e-mail has been sent!
    E-mail details:

    "&boos_mail_body set rs_m=server.CreateObject("adodb.recordset") rs_m.Open "select mailaddress,mailsend,mailusername,mailuserpass,import_mail from shop_config",conn,1,1 if not rs_m.eof then call send_mail(rs_m("mailaddress"),rs_m("mailsend"),rs_m("mailusername"),rs_m("mailuserpass"),email,weburl,"You order info from "&webname,Mail_body,weburl,0) call send_mail(rs_m("mailaddress"),email,rs_m("mailusername"),rs_m("mailuserpass"),rs_m("import_mail"),name,"You order info from "&name,boos_mail_body,"list.asp?id="&id,1) end if rs_m.close set rs_m=nothing end if if request("sendfirend") then ckyz=Cint(left(request.form("yz"),4)) if not isNumeric(ckyz) then response.write "" response.end end if if int(session("GetCode"))<>ckyz then response.write "" response.end end if product_name=request("product_name") price=request("price") username=request("username") email=request("email") message=HTMLEncode3(request("message")) Call LenCheck(product_name,1,100,"Product name") Call LenCheck(price,1,30,"Price") Call LenCheck(username,1,30,"Your name") Call LenCheck(message,0,1000,"Message") Mail_body="Ask seller a question:"&"

    Sender:"&username&"
    Email:"&email&"
    Message:"&message&"
    Product name:"&product_name&"
    Price:"&shop_currency&price&"
    "&"Url:http://"&weburl&"/list.asp?id="&id&"" set rs_m=server.CreateObject("adodb.recordset") rs_m.Open "select mailaddress,mailsend,mailusername,mailuserpass,import_mail from shop_config",conn,1,1 if not rs_m.eof then call send_mail(rs_m("mailaddress"),rs_m("mailsend"),rs_m("mailusername"),rs_m("mailuserpass"),rs_m("import_mail"),username,"New contact info from "&username,Mail_body,"list.asp?id="&id,0) call send_mail(rs_m("mailaddress"),rs_m("mailsend"),rs_m("mailusername"),rs_m("mailuserpass"),email,webname,"You E-mail has been sent","You E-mail has been sent","list.asp?id="&id,1) end if rs_m.close set rs_m=nothing end if shop_booklist() %>
  • <%page_right()%>
    <% foot() %>