ASPÎļþÔõôÓÃÌõ¼þ¾äÈÃ±íµ¥Ö»ÄÜÊäÈ뺺×Ö»òÊý×Ö´®ÄØ?
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 ......
aspÐéÄâÖ÷»úʵÏÖα¾²Ì¬µÄ·½·¨£º
1¡¢ ÖØÐ´url²ÎÊý
Step1: ½¨Á¢Ç°Ì¨Îļþindex.asp£¬ÐÞ¸Äurl²ÎÊýÐÎʽ¡£ÓÉÓÚ¶ÁÈ¡Êý¾Ý¿âÖеļǼ²»ÊÇרÌâµÄÖØµã£¬¹ÊÖ±½Ó¸ø³ö:
<!--#include file="config.asp" -->
&l ......
ÎÒÏ뽫×Ö·û´®Éú³ÉÒ»ÕÅͼƬ£¬ÈçºÎд£¿
×Ö·û´®Éú³ÉͼƬ?
ÒýÓÃ
×Ö·û´®Éú³ÉͼƬ?
˵¼òµ¥µã¾ÍÊÇÉú³ÉÑéÖ¤ÂëµÄ·½·¨¡£
Private Sub Paint(ByVal strCode As String)
Dim strImgPath As String ......
ÊÇÕâÑù×ӵģ¬ÎÒÏÖÔÚ×öÁËÒ»¸öÍøÖ·µ¼º½µÄÍøÕ¾£¬Ê×ҳȫÊÇÍøÃûºÍÁ´½Ó£¬ÀàËÆhao123µÄÊ×Ò³£¬µ«ÊÇÓлáÔ±µÇ¼£¬»áÔ±µÇ¼ºó¿ÉÒÔÊ×´ÎÍøÕ¾£¬»áÔ±µÇ¼ºó»áÏÔʾÊղصÄÍøÕ¾³öÀ´£¬ÒòΪÊ×ҳͷ²¿Ï»áÓÐÒ»¸öÎÒµÄÊղصÄÀ¸Ä¿...ÏÖÔÚÿ´ò¿ ......