×

Loading...
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。

@Calgary

ASP file

semaphore(扭扭捏捏)
<%@ Language=VBScript %>

<%
option explicit
dim conn, sql
dim mdbfile, strConnString
mdbfile = "/data/contact.mdb"
strConnString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath( mdbfile ) & ";"

set conn = server.CreateObject ("ADODB.Connection")
conn.Open strConnString

dim firstName
firstName = Trim (Request.Form("first"))

sql = "insert into users (first) values ('" & firstName & "')"
conn.Excecute (sql)
%>

<html>
Thanks for your registration,
<% Response.write firstName %>
</html>
(#1020462@0)
Last Updated: 2003-2-4
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / IT技术讨论 / tztz, please help -semaphore(扭扭捏捏); 2003-2-4 (#1020454@0)
    • html file -semaphore(扭扭捏捏); 2003-2-4 {510} (#1020459@0)
      <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
      <HTML>
      <HEAD>
      <TITLE> New Document </TITLE>
      <META NAME="Generator" CONTENT="EditPlus">
      <META NAME="Author" CONTENT="">
      <META NAME="Keywords" CONTENT="">
      <META NAME="Description" CONTENT="">
      </HEAD>

      <BODY>
      please input your first name:
      <form method="POST" action="contact.asp">
      <input type="text" name="first" size="3">
      <input type="submit" value="Send Request" name="Send Request"
      </BODY>
      </HTML>
    • ASP file -semaphore(扭扭捏捏); 2003-2-4 {559} (#1020462@0)
      <%@ Language=VBScript %>

      <%
      option explicit
      dim conn, sql
      dim mdbfile, strConnString
      mdbfile = "/data/contact.mdb"
      strConnString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath( mdbfile ) & ";"

      set conn = server.CreateObject ("ADODB.Connection")
      conn.Open strConnString

      dim firstName
      firstName = Trim (Request.Form("first"))

      sql = "insert into users (first) values ('" & firstName & "')"
      conn.Excecute (sql)
      %>

      <html>
      Thanks for your registration,
      <% Response.write firstName %>
      </html>
    • 什么问题呀? -decentboy(曾经的帝国骑士); 2003-2-4 (#1020463@0)
    • error message -semaphore(扭扭捏捏); 2003-2-4 {285} (#1020470@0)
      Error Type:
      Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
      [Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'Excecute'. Make sure it exists and that its name is spelled correctly.
      /addil/contact.asp, line 17
    • 有我公司的电话吗? -decentboy(曾经的帝国骑士); 2003-2-4 (#1020482@0)
      • 没有。:-( -xanada(㊣流水); 2003-2-4 (#1020516@0)
    • conn.Excecute (sql) ==> conn.Execute(sql) -cnyouyou(游啊游，游到外婆桥); 2003-2-4 (#1020512@0)
      • Thank you very much! :) -semaphore(扭扭捏捏); 2003-2-4 (#1020581@0)
      • :)))))))))) -sammy(李有财); 2003-2-4 (#1021062@0)
        • 哇你笑我呀,过分耶 :(((((((((( -semaphore(扭扭捏捏); 2003-2-4 (#1021313@0)
          • 还说， 害我今天自责了好久。 偶就没看出错来 ：（ -ningxin0809(雁影行洲); 2003-2-4 (#1021446@0)
            • 搞电脑就是要眼神好 -helloyou(你好！); 2003-2-4 (#1021639@0)
            • ??? -rosie(天使坠人间--脸先着地); 2003-2-4 (#1021692@0)
          • Error Message得很清楚了啊。 -sammy(李有财); 2003-2-4 (#1021687@0)
    • 偶愣某看出来 -tztz(tztz); 2003-2-5 (#1022217@0)
    • 惨愧,偶也没看出来. -bbbb(鞭炮薄饼--过年啦); 2003-2-5 (#1022221@0)

More Topics

  • Torvalds patch improves Linux performance by 2.6%
  • GitHub Spark
  • 脑洞大开，突发奇想，用力来传播信息
  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
    • 枫下论坛主坛 /  工作学习 /  IT技术讨论