设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
热搜: 回贴
微赢网络技术论坛»论坛 › 学习网 知识堂 › 计算机网络 › 程序编程 › 这套代码不知哪儿写错了,不能提交数据到SQL库中!求助 ...
  • 前程无忧官网首页 有什么好的平台可以
  • 最新的销售平台 互联网营销的平台有哪
  • 制作网页的基本流程 网页制作和网页设
  • 【帝国CMS】输出带序号的列表(数字排
  • 网站建设公司 三一，中联，极东泵车的
  • 织梦 建站 织梦网站模版后台怎么更改
  • 云服务官网 哪些网站有免费的简历模板
  • 如何建网站要什么条件 建网站要用什么
  • 吉林市移动公司电话 吉林省退休人员网
  • 设计类毕业论文 网站设计与实现毕业论
返回列表 发新帖
查看: 236|回复: 5

这套代码不知哪儿写错了,不能提交数据到SQL库中!求助

[复制链接]
发表于 2008-12-23 02:54:08 | 显示全部楼层 |阅读模式 IP:江苏扬州
<%
'//发布信息
Function Exhale()
Dim I_Type,I_title,I_BigClassId,I_SmallClassId,I_Keyword,I_JzTime,I_member,I_explain,I_specification,I_CountNumber,I_packageexplain,I_price,I_price_y,I_unit,I_Pic,I_Userid
I_Type=Request.Form("I_Type")
I_title=FunInput(Request.Form("I_title"))
I_BigClassId=Clng(Request.Form("I_BigClassId"))
I_SmallClassId=Clng(Request.Form("I_SmallClassId"))
I_Keyword=Trim(Request.Form("I_Keyword"))&","&Trim(Request.Form("I_KeywordB"))&","&Trim(Request.Form("I_KeywordC"))
I_JzTime=Clng(Request.Form("I_JzTime"))
I_JzTime=DateAdd("d",I_JzTime,now())
I_explain=Request.Form("I_explain")
I_specification=Request.Form("I_specification")
I_CountNumber=Request.Form("I_CountNumber")
I_packageexplain=Request.Form("I_packageexplain")
I_price=Request.Form("I_price")
I_Pic=Request.Form("I_Pic")
I_smallPic=request.Form("I_smallPic")
I_company=Request.Form("company")
strm_name=Request.Form("strm_name")
strm_email=Request.Form("strm_email")
I_pic_2=request.form("I_pic2")&"|"&request.form("I_smallpic2")
I_pic_3=request.form("I_pic3")&"|"&request.form("I_smallpic3")
'I_member=session("lanier")
'select case I_member
  'case "塑料通会员"
   'I_member=11
  'case "银牌会员"
   'I_member=9
  'case "商务通会员"
   'I_member=6
  'case else
   'I_member=3
'end select
'///修改图库参数
Call ModAsean_memberpic(I_Pic)
I_Userid=CookieUserID
    '=====================积分==================
  dim jRs,jSql
  Set jRs=server.createobject("adodb.recordset")
  jSql="select * from Asean_jifeng where D_userid='"&CookieUserID&"'"
  jRs.open jSQL,conn,1,2
   if jRs.eof then
    jrs.addnew
    jrs("D_userid")=CookieUserID
    'jrs("D_num")=jrs("D_num")+1
    jrs("D_starttime")=now()
    jrs("D_endtime")=now()+1
    jrs("D_ip")=request.ServerVariables("LOCAL_ADDR")
    jrs.update
  elseif I_type=2 then
    jrs("D_num")=jrs("D_num")+5
    jrs.update
  else
    jrs("D_num")=jrs("D_num")+3
    jrs.update
  jrs.close:set jrs=nothing
  end if
  '=======================积分END======================
Dim Rs
Set Rs=Server.CreateObject("Adodb.RecorDset")
Rs.Open "Asean_info",Conn,2,2
'///数据入库
Rs.AddNew
  Rs("I_Type")=I_Type
  Rs("I_title")=I_title
  Rs("I_BigClassId")=I_BigClassId
  Rs("I_SmallClassId")=I_SmallClassId
  Rs("I_Keyword")=I_Keyword
  Rs("I_JzTime")=I_JzTime
  Rs("I_explain")=I_explain
  Rs("I_specification")=I_specification
  Rs("I_CountNumber")=I_CountNumber
  Rs("I_packageexplain")=I_packageexplain
  Rs("I_price")=I_price
  Rs("I_Pic")=I_Pic
  Rs("I_smallPic")=I_smallPic
  Rs("I_Userid")=CookieUserID
  Rs("I_company")=I_company
  Rs("I_member")=0
  Rs("I_paixu")=0
  Rs("I_price_y")=0
  ''角度
  rs("I_pic_2")=I_pic_2
  rs("I_pic_3")=I_pic_3
Rs.Update
Call FunMsg("Info_View.asp","您的供求商机已成功发布，我们会在24小时内审核后您的信息，审核后将正式对外公布!相关信息已发送到您的邮箱，请注意查收！")
End Function
'/////如果有图片，那就修改用户图库中的说明,和参数值
Function ModAsean_memberpic(FileName)
'=======================发信==========================
    Dim emailto,email,emailname,Title,Mailbody,emailserver,user,pass
  emailto=""&StrM_email&"" '收信人
  Title="您在"&cityname&"发布的"&Request.Form("I_title")&"已提交成功!"
  Mailbody="<html><head><meta http-equiv=""Content-Type"" ctext/html; charset=gb2312"">"
  Mailbody=Mailbody & "<title>"&cityname&"</title>"
  Mailbody=Mailbody & "<style type=""text/css""><!--"
  Mailbody=Mailbody & "td{font-family: ""宋体"";font-size: 14px;text-decoration: none;}"
  Mailbody=Mailbody & ".line {border-bottom-width: 1px;border-bottom-style: solid;border-bottom-color: #f5f5f5;}"
  Mailbody=Mailbody & ".style3 {font-size: 12px;color: #198CC3}"
  Mailbody=Mailbody & ".style7 {font-size: 12px}"
  Mailbody=Mailbody & "a.a:link {font-family: ""宋体"";color: #000000;text-decoration: none;}"
  Mailbody=Mailbody & "a.a:visited {font-family: ""宋体"";color: #000000;text-decoration: none;}"
  Mailbody=Mailbody & "a.a:hover {font-family: ""宋体"";color: #000000;text-decoration: underline;}"
  Mailbody=Mailbody & ".style8 {color: #999999;font-size: 12px}"
  Mailbody=Mailbody & "--></style>"
  Mailbody=Mailbody & "</head><body>"
  Mailbody=Mailbody & "<table width=""464"" border=""0"" align=""center"" cellPadding=""1"" cellSpacing=""0"" bgColor=""#198CC3"">"
  Mailbody=Mailbody & "<tbody>"
  Mailbody=Mailbody & "<tr>"
        Mailbody=Mailbody & "<td>"
        Mailbody=Mailbody & "<table cellSpacing=""0"" cellPadding=""0"" width=""100%"" bgColor=""#ffffff"" border=""0"">"
        Mailbody=Mailbody & "<tbody><tr>"
        Mailbody=Mailbody & "<td vAlign=""top"" width=""4""><img height=""159"" src="""&cityurl&"/images/ShowLetter1.gif"" width=""4""></td>"
        Mailbody=Mailbody & "<td  vAlign=""top"" width=""460""  rowSpan=""2"">"
        Mailbody=Mailbody & "<table height=""332"" cellSpacing=""0"" cellPadding=""0"" width=""460"" border=""0"">"
        Mailbody=Mailbody & "<tbody><tr><td width=""460"" align=""middle"" valign=""top"">"
        Mailbody=Mailbody & "<table width=""100%""  border=""0"" cellspacing=""0"" cellpadding=""0"">"
        Mailbody=Mailbody & "<tr><td><table width=""98%"" border=""0"" align=""center"" cellPadding=""0"" cellSpacing=""0"">"
        Mailbody=Mailbody & "<tbody><tr>"
        Mailbody=Mailbody & "<td width=""43%"" rowSpan=""2"" align=""center""><a href="&cityurl&" target=_blank><img src="&cityurl&"/images/Logo.gif alt="""&cityname&"""  border=0></a></td>"
        Mailbody=Mailbody & "<td vAlign=""bottom"" width=""57%"" height=""38""> </td>"
        Mailbody=Mailbody & "</tr><tr>"
        Mailbody=Mailbody & "<td width=""57%"" height=""30""><div align=""center"" class=""style7"">"
        Mailbody=Mailbody & "<div align=""left"">----"&citytitle&"</div>"
        Mailbody=Mailbody & "</div></td>"
        Mailbody=Mailbody & "</tr>"
        Mailbody=Mailbody & "</tbody>"
        Mailbody=Mailbody & "</table></td>"
        Mailbody=Mailbody & "</tr><tr>"
        Mailbody=Mailbody & "<td valign=""top""><table width=96% border=0 align=center cellpadding=0 cellspacing=0>"
        Mailbody=Mailbody & "<tr valign=""top""><td width=""100%""><hr size=""1"" noshade></td>"
        Mailbody=Mailbody & "</tr><tr><td height=30 class=line>尊敬的"&StrM_name&":</td>"
        Mailbody=Mailbody & "</tr><tr>"
        Mailbody=Mailbody & "<td height=30><div align=left>    恭喜您，您在"&cityname&"发布的“<font color=red>"&left(Request.Form("I_title"),10)&"...</font>”，已提<br>"
        Mailbody=Mailbody & "</div></td></tr><tr>"
        Mailbody=Mailbody & "<td height=30 class=line>交成功，我们的服务人员会在一个工作日为您进行审核！</td>"
        Mailbody=Mailbody & "</tr><tr><td height=30 class=line>    审核通过后，您可以用以下三种方法查看：</td>"
        Mailbody=Mailbody & "</tr><tr><td height=30 class=line style=""padding-left:50px"">① 通过搜索查找看自己的信息是否已经上网。</td>"
        Mailbody=Mailbody & "</tr><tr>"
        Mailbody=Mailbody & "<td height=30 class=line style=""padding-left:50px"">② 您可以到"商业机会"栏目中，根据对应的分类进行查看。</td>"
        Mailbody=Mailbody & "</tr><tr>"
        Mailbody=Mailbody & "<td height=30 class=line style=""padding-left:50px"">③ 您可以到企业大全，找到自己的企业网站去查看。</td>"
        Mailbody=Mailbody & "</tr><tr><td height=30 class=line><div align=""center"">如果有任何疑问，欢迎给<a href="&cityurl&"/Aboutme.asp target=_blank>我们留言</a>,我们将尽快给您回复！</div></td>"
        Mailbody=Mailbody & "</tr></table>"
        Mailbody=Mailbody & "<table width=""96%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
        Mailbody=Mailbody & "<tr><td height=""26"" valign=""bottom""><hr size=""1"" noshade></td>"
        Mailbody=Mailbody & "</tr><tr>"
        Mailbody=Mailbody & "<td height=""35""><div align=""center"" class=""style7"">"
        Mailbody=Mailbody & "<div align=""left"">服务热线:"&citytel&" 客服QQ:"&citywebqq&"<br> "
        Mailbody=Mailbody & ""&citytitle&"<br>"
        Mailbody=Mailbody & "</div></div></td></tr><tr>"
        Mailbody=Mailbody & "<td height=""25""><div align=""right""><span class=""style7""><a href="""&cityurl&""" target=""_blank"" class=""a"">"&cityname&"</a>   </span></div></td>"
        Mailbody=Mailbody & "</tr></table></td></tr><tr>"
        Mailbody=Mailbody & "<td height=""4"" valign=""bottom""><table cellSpacing=""0"" cellPadding=""0"" width=""442"" border=""0"">"
        Mailbody=Mailbody & "<tbody><tr><td vAlign=""bottom"" height=""4""><img height=""4"" src="""&cityurl&"/images/ShowLetter2.gif"" width=""243""></td>"

        Mailbody=Mailbody & "</tr></tbody></table></td></tr></table></td>"
        Mailbody=Mailbody & "<td vAlign=""top"" width=""18"" bgColor=""#198CC3""><table width=""100%""  border=""0"" cellspacing=""0"" cellpadding=""0"">"
        Mailbody=Mailbody & "<tr><td height=""64""> </td></tr><tr><td><img src="""&cityurl&"/images/iyn.gif"" ></td>"
        Mailbody=Mailbody & "</table></td></tr></tbody></table></td></tr><tr>"
        Mailbody=Mailbody & "<td vAlign=""bottom"" height=""2""><img height=""159"" src="""&cityurl&"/images/ShowLetter.gif"" width=""4""></td>"
        Mailbody=Mailbody & "</tr>"
        Mailbody=Mailbody & "</tbody></table></td></tr></tbody></table></body></html>"
call SendJmail(emailto,Title,Mailbody)'jmail函数
If FileName<>"" Then
On Error Resume Next
Dim StrSQL
  StrSQL="Update Asean_memberpic Set P_LikeTo=1 Where P_Filename='"&FileName&"'"
  Conn.Execute StrSQL
If Err.Number<>0 Then
  Call FunErr("对不起！程序在写入图片库的过程中发生了错误！|请与管理员联系！|",False,"error.asp")
End If
Else
Exit Function
End if
End Function
回复

使用道具 举报

文文
发表于 2009-12-7 12:05:04 | 显示全部楼层 IP:香港
我仿佛看到了你鹰视狼顾，龙行虎步的伟岸英姿
回复

使用道具 举报

发表于 2010-2-11 16:05:05 | 显示全部楼层 IP:亚太地区
这篇帖子构思新颖，题材独具匠心，段落清晰，情节诡异，跌宕起伏，主线分明，引人入胜！
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )

GMT+8, 2024-9-29 13:26 , Processed in 0.186582 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表