生成首页代码错误。 - ASP技术论坛

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

生成首页代码错误。

makeindex.asp:  <% '判断是否正确登陆 IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN response.redirect "mymanage.asp" response.end END IF %> <html>

<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>

搜索更多相关主题的帖子: 首页　代码　

第 2 楼

得分:0

<% '判断是否正确登陆 IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN response.redirect "mymanage.asp" response.end END IF dim sql dim rs dim sql1 dim rs1 dim typename1 typeid=request("typeid")'获取栏目编号 '查询此栏目编号的信息 sql1="select * from type where typeid="&typeid set rs1=server.createobject("adodb.recordset") rs1.open sql1,conn,3,2 TYPE=rs1("type") 这里错在哪里 filepath=rs1("typename") borderid=rs1("typeid") '查询模板表，将选择的模板调出来 set rs = server.CreateObject("ADODB.RecordSet") StrSql = "select E_Memo from Example where id="+request("Example") set rs = conn.Execute (StrSql) '生成新闻文件名 fname =index&".html& 我想让他生成首面名为index.html但是生成不了。 '将模板内容赋给pencat pencat=rs("E_Memo") '将模板中TITLE替换为类型名称TYPE pencat=replace(pencat,"TITLE",TYPE) '将模板中typeid替换为类型名称borderid pencat=replace(pencat,"typeid",borderid) '将替换好的模板写进文件中 Set fso = Server.CreateObject("Scripting.FileSystemObject")'创建组件 Set fout = fso.CreateTextFile(server.mappath(filePath& "\" & fname))'生成HTML文件 fout.WriteLine pencat fout.close '在数据库中增加一条文章记录 set rs=server.createobject("adodb.recordset") sql="select * from type where typeid="&typeid rs.open sql,conn,1,3 rs.addnew rs("firstpage")=fname rs.update rs1.close set rs1=nothing rs.close set rs=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> 文件标题为：<%response.write title%></p> <p align="center">是否继续添加？<br> <br> <a href="makeindex.asp"> 是</a>   <a href="Mymanage.asp">否</a><br> <br> </p> </td> </tr> </table> </div>

[此贴子已经被作者于2005-7-18 17:13:50编辑过]

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

第 3 楼

得分:0

技术信息（用于支持人员）

错误类型： Microsoft VBScript 编译器错误 (0x800A0400) 缺少语句 /caiyazhen/myhomepage/news/makeindexsave.asp, line 18 TYPE=rs1("type")
浏览器类型： Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Media Center PC 3.0; .NET CLR 1.0.3705)
网页： POST 41 ??? /caiyazhen/myhomepage/news/makeindexsave.asp
POST Data: typeid=28&Example=6&cmdok=+%CC%ED+%BC%D3+
时间： 2005年7月18日, 11:36:01
详细信息： Microsoft 支持

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