记录更新不到数据库 - ASP技术论坛

问题点数：0 回复次数：5

记录更新不到数据库

fname ="ind"&"ex"&".html"
typeid=request("typeid")'获取栏目编号
'查询此栏目编号的信息
set rs2=server.createobject("adodb.recordset")
sql2="select * from type where typeid="&typeid
rs2.open sql2,conn,3,2
TYPE2=rs2("type")
filepath=rs2("typename")
borderid=rs2("typeid")
这里的RS2和下面的RS3都是从同一个字段中读出来的
set rs3=server.createobject("adodb.recordset")
sql3="update type set firstpage=fname where typeid="&typeid
rs3.open sql3,conn,3,2

搜索更多相关主题的帖子: 数据库　 typeid　set　adodb　

第 2 楼

得分:0

哪位好人来帮帮我。

中国人的财富网:http://www..cn/

第 3 楼

得分:0

没有报错，就是更新不到数据库
typeid=request("typeid")'获取栏目编号
'查询此栏目编号的信息
set rs2=server.createobject("adodb.recordset")
sql2="select * from type where typeid="&typeid
rs2.open sql2,conn,3,2
TYPE2=rs2("type")
filepath=rs2("typename")
borderid=rs2("typeid")
这个可以读出来的

中国人的财富网:http://www..cn/

第 4 楼

得分:0

我本意并不是那个 fname ="ind"&"ex"&".html" typeid=request("typeid")'获取栏目编号 '查询此栏目编号的信息 set rs2=server.createobject("adodb.recordset") sql2="select * from type where typeid="&typeid rs2.open sql2,conn,3,2 TYPE2=rs2("type") filepath=rs2("typename") borderid=rs2("typeid")这个是数据库里本来就有的信息，用来生成首页替换的 set rs3=server.createobject("adodb.recordset") sql3="update type set firstpage=fname where typeid="&typeid rs3.open sql3,conn,3,2 而这个是想要在前面的基础上给firstpage字段加上一个值

中国人的财富网:http://www..cn/

第 5 楼

得分:0

<% '判断是否正确登陆 IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN response.redirect "mymanage.asp" response.end END IF %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="GENERATOR" content="Microsoft FrontPage 3.0"> <title><%=title2%></title> <link rel="stylesheet" type="text/css" href="css.css"> </head> <body> <form method="POST" action="makeindexsave.asp"> <div align="center"><center> <table border="0" cellspacing="1" width="758" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" bgcolor="#000000"> <tr> <td width="100%" bgcolor="#000066" height="20"> <p align="center"><b class="unnamed2"><font color="#FFFFFF">文章首页添加</font></b> </td> </tr> <tr align="center"> <td width="100%"> <table border="0" cellspacing="0" width="100%" cellpadding="0"> <tr> <td width="15%" align="right" valign="middle" class="unnamed2" bgcolor="#FFFFFF">文章分类：</td> <td width="85%" bgcolor="#FFFFFF"> <select class="unnamed2" name="typeid" size="1"> <% '查询数据库，显示出来所有栏目,这里是将所有栏目放在下拉框中 dim rs,sql,sel set rs=server.createobject("adodb.recordset") sql="select * from type" rs.open sql,conn,1,1 do while not rs.eof sel="selected" response.write "<option " & sel & " value='"+CStr(rs("typeID"))+"' name=typeid>"+rs("type")+"</option>"+chr(13)+chr(10) rs.movenext loop rs.close %> </select> </td> </tr> <tr> <td width="15%" align="right" valign="middle" class="unnamed2" bgcolor="#FFFFFF">新闻模版：</td> <td width="85%" bgcolor="#FFFFFF"> <select class="unnamed2" name="Example" size="1"> <% '查询数据库，显示所有新闻模板,也是在下拉框中显示 dim rs1,sql1,sl set rs1=server.createobject("adodb.recordset") sql1="select * from Example" rs1.open sql1,conn,1,1 do while not rs1.eof sl="selected" response.write "<option " & sl & " value='"+CStr(rs1("ID"))+"' name=id>"+rs1("name")+"</option>"+chr(13)+chr(10) rs1.movenext loop rs1.close %> </select> </td> </tr> </table> </td> </tr> </table> </center></div><div align="center"><center><p> <input type="submit" value=" 添加 " name="cmdok" class="unnamed5">   <input type="reset" value=" 清除 " name="cmdcancel" class="unnamed5"> </p> </center></div> </form></body> </html>

这是加入首页代码。

中国人的财富网:http://www..cn/

第 6 楼

得分:0

<% '判断是否正确登陆 IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN response.redirect "mymanage.asp" response.end END IF '生成新闻文件名 fname ="ind"&"ex"&".html" typeid=request("typeid")'获取栏目编号 '查询此栏目编号的信息 set rs2=server.createobject("adodb.recordset") sql2="select * from type where typeid="&cint("typeid") rs2.open sql2,conn,3,2 TYPE2=rs2("type") filepath=rs2("typename") borderid=rs2("typeid") rs2.addnew rs2("firstpage")=fname rs2.update '查询模板表，将选择的模板调出来 set rs = server.CreateObject("ADODB.RecordSet") StrSql = "select E_Memo from Example where id="+request("Example") set rs = conn.Execute (StrSql) '将模板内容赋给pencat pencat=rs("E_Memo") '将模板中TITLE替换为类型名称TYPE pencat=replace(pencat,"TITLE",TYPE1) '将模板中typeid替换为类型名称borderid pencat=replace(pencat,"typeid",borderid) '将替换好的模板写进文件中 Set fso = Server.CreateObject("Scripting.FileSystemObject")'创建组件 Set fout = fso.CreateTextFile(server.mappath(filePath&"\"&fname))'在filePath目录下生成HTML文件fname fout.WriteLine pencat fout.close rs2.close set rs2=nothing conn.close set conn=nothing %> <head> </head> <div align="center"> <table border="0" cellspacing="1" width="50%" bgcolor="#000000" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF" cellpadding="0"> <tr bgcolor="#000066"> <td width="100%" height="20"> <p align="center"><font color="#FFFFFF"><b>添加文章首页</b></font> </td> </tr> <tr> <td width="100%" bgcolor="#FFFFFF"> <p align="left"><br> 其文件名为：<%=fname%><br> 文件标题为：<%=TYPE2%></p> <p align="center">是否继续添加？<br> <br> <a href="makeindex.asp"> 是</a>   <a href="Mymanage.asp">否</a><br> <br> </p> </td> </tr> </table> </div>

这是生成代码，可以生成index.html但是记录不能存到数据库里面。

[此贴子已经被作者于2005-7-19 9:17:31编辑过]

中国人的财富网:http://www..cn/