28,390
社区成员
发帖
与我相关
我的任务
分享
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title>Untitled Page</title>
</head>
<script type="text/javascript">
function $(id){return document.getElementById(id)}
function CreateXMLHTTPObj(){
var xmlHttp=null;
try{xmlHttp=new XMLHttpRequest();}
catch (MSIEx){
try{xmlHttp=new ActiveXObject("Msxml2.XMLHTTP");}
catch (e){
try{xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");}
catch(e){alert('您的浏览器不支持AJAX!');}
}
}
return xmlHttp;
}
function myAjax(data){
var x = CreateXMLHTTPObj();
x.onreadystatechange=function(){
if(x.readyState==4){
if(x.status==200){ alert(x.responseText); x=null;}
}
}
url="myajax.asp?flag=Yes&t="+new Date().getTime();
x.open('POST',url,true);
x.SetRequestHeader("Content-Type","application/x-www-form-urlencoded");
x.send('data='+data);
}
</script>
<body bgcolor="#264444" style ="margin-top:0;">
<div id=mydata>
<table width="100%" border="0" cellpadding="5" cellspacing="1" id="tb">
<tr>
<td width="14%" height="25" align="right" bgcolor="#FFFFFF">项目名称:</td>
<td width="86%" bgcolor="#FFFFFF"><input name="textfield4" type="text" size="40"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">哪一级医院已<br>
开展本项目:</td>
<td bgcolor="#FFFFFF">1、国外<input type="checkbox" name="checkbox4" value="checkbox">
2、国内
<input type="checkbox" name="checkbox23" value="checkbox"></td>
</tr>
<tr>
<td height="12" colspan="2" bgcolor="#FFFFFF">科主任审核意见:<br>
<div align="center"><textarea name="textarea2" cols="100%" rows="4"></textarea></div></td>
</tr>
</table>
<input type="submit" name="Submit" value="提 交" onmousedown="myAjax(escape(document.getElementById('mydata').innerHTML))">
<input type="reset" name="Submit2" value="重 填">
</div>
</body>
</html>
<!--#include file=你的连库文件.asp-->
<%
flag=Request.QueryString("flag")
if len(flag)>0 then
response.Charset="GB2312"
data=Request.Form("data")
set rs=server.CreateObject("adodb.recordset")
rs."SELECT * FROM 表 WHERE 1=2",conn,1,1
rs.addnew
rs("字段")=data
rs.update
if rs.state<>0 then rs.close
set rs=nothing
conn.close: set conn=nothing
if err then s="出错啦~!"&err.Description else s="保存成功!"
Response.Write s :Response.End
end if
%>