VBScript code:
<%
'获取传入参数
CompanyName = Request("CompanyName")
CName = Request("CName")
City = Request("City")
Tel = Request("Tel")
'判断输入是否为空
If CompanyName = "" Or CName = "" Or City = "" Or Tel = "" Then
'返回提示信息[response]
Response.Write "<html><body><center><font size=5>请将资料填写完整。</font></center></body></html>"
Response.End
else
'创建数据库连接
set conn=server.createobject("adodb.connection")
'获取数据库地址
DBPath = Server.MapPath("customer.mdb")
'修改字符串
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
'response.Write(connstr)
'打开连接
conn.open connstr
'建立
Set rs = Server.CreateObject("ADODB.Recordset")
'打开
rs.Open "select * from 客户", conn,1,3
if rs.bof and rs.eof then
else
'添加一条新记录
rs.AddNew
rs("公司名称") = CompanyName
rs("联络人姓名") = CName
rs("所在城市") = City
rs("电话号码") = Tel
'更新记录
rs.Updat
在asp里怎么调用java写的webservice方法，有很多方法
- <message name="RtPnrIn">
<part name="bstrPnrNO" type="s:string" />
<part name ......
