欢迎光临DRG中国网站----引领医疗诊断试剂及诊断设备新纪元
 
 
  首页 | 关于DRG  | DRG新闻 | 新产品 | 产品目录 | 产品领域 | 会议/展会 | 商务/论文 | 技术支持 | DRG家庭 | 
   
 
 
联系我们 网站地图 隐私政策 法律声明
 
 
<% 'response.buffer=true 'Response.Expires=0 'Set conn = Server.CreateObject("ADODB.Connection") 'DBPath = Server.MapPath("db/lm.mdb") 'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath if Request.ServerVariables("REQUEST_METHOD")="POST" then Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from gbook_tbl order by id_no ASC" rs.open sql,db,3,2 if rs.bof then reno=1 else rs.movelast reno=rs("id_no")+1 end if 'if Request.form("title")="" then ' response.redirect "refill.htm" ' response.flush 'end if if Request.form("title")="" then response.write "" & Chr(13) End If rs.addnew rs("id_no")=reno rs("mess_title")=Server.HtmlEncode(Request.form("title")) if Request.form("name")="" then rs("mess_auther")="anonymous" else rs("mess_auther")=Server.HtmlEncode(Request.form("name")) end if if Request.form("email")="" then rs("mess_email")="
" else mail=Request.Form("email") rs("mess_email")=Server.HtmlEncode(mail) end if if Request.form("homepage")="" then rs("mess_homepage")="
" else rs("mess_homepage")=Server.HtmlEncode(Request.form("homepage")) end if if Request.form("cateid")="" then rs("mess_cateid")="
" else rs("mess_cateid")=Server.HtmlEncode(Request.form("cateid")) end if rs("mess_from")=Request.ServerVariables("REMOTE_HOST") tmpmess=Server.HtmlEncode(request.form("comment")) tmpmess=replace(tmpmess,chr(10),"  
") if Request.form("comment")="" then rs("mess_comment")="


" else if request.form("pen")<>"" then rs("mess_comment")=tmpmess&"

    签名:
    "&Request.form("pen") else rs("mess_comment")=tmpmess&"

" end if end if rs("mess_read")=0 rs("mess_re")=0 if request.form("re")<>"" then rs("mess_reno")=Cint(request.form("re")) else rs("mess_reno")=0 end if rs("mess_date")=DATE rs("mess_time")=Time rs("length")="2" rs.update rs.close if request.form("re")<>"" then user_lib=Request.form("user") Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("db/lm.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rec=Request.form("re") sql="select * from gbook_tbl where trim(Cstr(id_no))='"&rec&"'" sql=sql+" order by id_no Asc" rs.open sql,conn,3,2 rs("mess_re")=rs("mess_re")+1 rs.update rs.close end if response.redirect "success.asp" response.flush else %>
 
 
" />

  留言主题:*

(必需填写)
  您的大名:* (必需填写)
  电子邮件:
  电  话:
  类  别:
  请填写留言:* (必需填写)
                
<% end if %>
 
 
 
京ICP备: 09042849号   美国DRG国际有限公司北京代表处
北京市朝阳区东三环北路8号亮马河大厦1座912室  电话:010-6590 0239  传真:010-6590 0231  邮箱:drgchina@drg-international.com