<% name=Request.form("name") tel=Request.form("tel") email=Request.form("email") content=Request.form("content") if content<>"" then mycon = name & "|" & tel & "|" & email & "|" & content Dim CONN_STRING CONN_STRING = Server.MapPath("..\myfile\database\table.mdb") CONN_STRING = "driver={Microsoft Access Driver (*.mdb)};dbq=" & CONN_STRING set conn=server.createobject("ADODB.connection") set rs=server.createobject("ADODB.recordset") conn.open CONN_STRING conn.execute "insert into gh (挂号,mydate) values ('" & mycon & "','" & now & "')" megstr="你提交的挂号已经上传到网站！" else megstr="" end if %> 武汉市中心医院--会员医疗卡
会员卡号：
密  码：
   首页 会员医疗卡 网上挂号




<% response.write megstr %>
姓名：
电话：
EMAIL：
挂号：
 
 


© 2003 版权所有:武汉市中心医院