我的第一次!

这是我第一次用blog,好多都不是很明白。可能以后会好一点。

我的第一次!!!!

10-20

rn这是我第一次写程式,老是出错!好多的错误我就是找不出来,现在又报错了!!11rn<% option explicit %>rn<% response.buffer=true%>rnrnrn 添加朋友rnrnrn 添加新朋友rn rn rn rn 姓名 rn rn rn 年龄 rn rn rn 户口 rn rn rn 学校 rn rn rn 姓别 rn rn rn 手机 rn rn rn rn rn rn rn<% rn'如果上面信息填全了,就可以显示下面的页面否则,会给出错信息rnif request.form("name")<>"" and request.form("age")<>"" and request.form("from")<>"" and request.form("scholl")<>"" and request.form("sex")<>"" and request.form("mbl")<>"" thenrn'以下连上数据库建立一个connection对象实例dbrn dim dbrn set db=server.createobject("adodb.connection")rn db.Open "DBQ="&Server.Mappath("fried.mdb")&";DRIVER=Microsoft Access Driver (*.mdb);" '相对路径rn '以下加新记录rn dim strsql,varname,varage,varfrom,varscholl,varsex,valmblrn varname=request("name")rn varage=request("age")rn varfrom=request("form")rn varscholl=request("scholl")rn varsex=request("sex")rn valmbl=request("mbl")rn strsql="insert into mblink(name,age,from,scholl,sex,mbl) values('"&varname&"','"&varage&"','"&varfrom&"','"&varscholl&"',rn'"&varsex&"','"&varsex&"','"&varmbl&"')"rn db.execute(strsql)rn response.redirect"index.asp"rnelsern response.write"信息填得不完整"rnend ifrn%>rnrnrnrnrn--------------------------------------------------------------------------------rnrn技术信息(适用于支持人员)rnrn错误类型:rnMicrosoft VBScript 编译器错误 (0x800A0409)rn/temp/1-2.asp, 第 49 行, 第 121 列rnstrsql="insert into mblink(name,age,from,scholl,sex,mbl) values('"&varname&"','"&varage&"','"&varfrom&"','"&varscholl&"',rn------------------------------------------------------------------------------------------------------------------------^rnrnrn就是这行出问题:rnstrsql="insert into mblink(name,age,from,scholl,sex,mbl) values('"&varname&"','"&varage&"','"&varfrom&"','"&varscholl&"',rnrnrn

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试