不能正确的添加文章
我通过管理员加入文章，当文章内容比较少的时假可以加进去，当内容比较多的时间，不管你怎么按按钮都不动，有谁知道这是什么原因，来帮帮我
2005-07-21 19:37
2005-07-21 19:39
2005-07-21 20:34
2005-07-22 08:21
<!--#include file="articleconn.asp"--> <% '判断是否正确登陆 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>创建文章</title> <link rel="stylesheet" type="text/css" href="css.css"> </head>
<body>
<form method="get" action="mysavearticle.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" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章标题：</td> <td width="85%" height="30" bgcolor="#FFFFFF"> <span style='cursor:hand' title='缩短对话框' onClick='if (me.size>10)me.size=me.size-2'>-</span> <input name="txttitle" id=me type="TEXT" size=50 maxlength=22 style="background-color:ffffff;color:000000;border: 1 double"> <span style='cursor:hand' title='加长对话框' onClick='if (me.size<102)me.size=me.size+2'>+</span> (最多22个汉字) </td> </tr> <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> <font color="#FF0000">（注意文章类别）</font> </td> </tr> <tr> <td width="15%" align="right" valign="middle" class="unnamed2" height="5" bgcolor="#FFFFFF">推荐新闻：</td> <td width="85%" valign="middle" height="5" bgcolor="#FFFFFF"> <input type="checkbox" name="checkbox1" value="1" class="unnamed5"> </td> </tr> <tr> <td width="15%" align="right" valign="middle" class="unnamed2" height="5" bgcolor="#FFFFFF">新闻模版：</td> <td width="85%" valign="middle" height="5" 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> <tr> <td width="15%" align="right" valign="top" class="unnamed2" bgcolor="#FFFFFF">文章内容：</td> <td width="85%" bgcolor="#FFFFFF"> <textarea rows="30" name="txtcontent" cols="70" class="smallarea"></textarea> </td> </tr> <tr> <td width="15%" align="right" height="30" valign="middle" bgcolor="#FFFFFF"> </td> <td width="85%" height="30" class="unnamed2" bgcolor="#FFFFFF"> </td> </tr> <tr> <td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">相关新闻：</td> <td width="85%" height="30" bgcolor="#FFFFFF"><span style='cursor:hand' title='缩短对话框' onclick='if (ss.size>10)ss.size=ss.size-2'> -</span> <INPUT NAME="about" id=ss TYPE="TEXT" SIZE=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double"> <span style='cursor:hand' title='加长对话框' onclick='if (ss.size<102)ss.size=ss.size+2'>+</span> </td> </tr> <tr> <td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF"> </td> <td width="85%" height="30" bgcolor="#FFFFFF" class="unnamed2">相关新闻里只需填入关键字（如：实验室）或完整标题，只显示5条相关新闻。</td> </tr> <tr> <td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">来源：</td> <td width="85%" height="30" bgcolor="#FFFFFF"> <span style='cursor:hand' title='缩短对话框' onclick='if (message.size>10)message.size=message.size-2'> -</span> <INPUT NAME="Nfrom" id=message TYPE="TEXT" SIZE=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double"> <span style='cursor:hand' title='加长对话框' onclick='if (message.size<102)message.size=message.size+2'>+</span> </td> </tr> <tr> <td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章作者：</td> <td width="85%" height="30" bgcolor="#FFFFFF"><span style='cursor:hand' title='缩短对话框' onclick='if (mess.size>10)mess.size=mess.size-2'> -</span> <INPUT NAME="zznews" id=mess TYPE="TEXT" SIZE=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double"> <span style='cursor:hand' title='加长对话框' onclick='if (mess.size<102)mess.size=mess.size+2'>+</span> </td> </tr> <tr> <td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章审核：</td> <td width="85%" height="30" bgcolor="#FFFFFF" valign="middle"> <input name="checkbox2" type="checkbox" class="unnamed5" value="1"> <font color=red>*</font>不选为审核</td> </tr> <tr> <td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF"> </td> <td width="85%" height="30" bgcolor="#FFFFFF" valign="middle"> </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>
2005-07-22 08:22
<!--#include file="articleconn.asp"--> <% function changechr(str) str=server.htmlencode(str) str=replace(str,chr(39),"") str=replace(str,vbcrlf,"<br>") str=replace(str,chr(13),"<br>") changechr=str end function function makefilename(fname) '生成文件名函数 fname = now() fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") randomize ranNum=int(90000*rnd)+10000 '生成随机数 fname = fname&fanNum makefilename=fname&".html" end function %> <% '判断是否正确登陆 IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN response.redirect "mymanage.asp" response.end END IF title=request("txttitle")'获取文章标题 from=request("Nfrom")'获取文章的来源 zznews=request("zznews")'获取作者信息 typeid=request("typeid")'获取栏目编号 about=request("about")'获取相关信息关键字 dim sql1 dim rs1 dim typename1 '查询此栏目编号的信息 sql1="select * from type where typeid="&typeid set rs1=server.createobject("adodb.recordset") rs1.open sql1,conn,1,1 typename1=rs1("type") filepath=rs1("typename") '判断是否为推荐新闻 if request("checkbox1")="1" then tjnews=1 else tjnews=2 end if '根据登陆时的不同级别，赋予shenhe不同的值 if Session("KEY")="input" then shenghe=2 else if request("checkbox2")="1" then shenghe=2 else shenghe=1 end if end if '将输入框中的文章内容转换成网页格式的内容 content=changechr(request("txtcontent")) %> <% '查询模板表，将选择的模板调出来 set rs = server.CreateObject("ADODB.RecordSet") StrSql = "select E_Memo from Example where id="+request("Example") set rs = conn.Execute (StrSql) '生成新闻文件名 fname = makefilename(now()) dddd = year(now()) & "-" & month(now()) & "-" & day(now()) '将模板内容赋给pencat pencat=rs("E_Memo") '将模板中lx替换为类型名称typename1 pencat=replace(pencat,"lx",typename1) '将模板中Data替换为实际日期dddd pencat=replace(pencat,"Date",dddd) if from="" then pencat=replace(pencat,"From","稻草人之家") '若来源为空，则将模板中的From替换为我们的实验室 else pencat=replace(pencat,"From",from)'若不为空，则将输入的文章来源替换模板中的From end if if zznews="" then pencat=replace(pencat,"Fname","网站管理员") '若作者为空，则将模板中的Fname替换为网站管理员 else pencat=replace(pencat,"Fname",zznews)'若不为空，则将输入的作者名替换模板中的Fname end if '将模板中H_Title替换为实际文章标题 pencat=replace(pencat,"H_Title",title) '将模板中H_Memo替换为实际文章内容 pencat=replace(pencat,"H_Memo",content) '将模板中labout替换为实际关键字 pencat=replace(pencat,"labout",about) %> <% '将替换好的模板写进文件中 Set fso = CreateObject("Scripting.FileSystemObject") gg=server.mappath(filepath) Set MyFile = fso.CreateTextFile(gg&"\"&fname, True)
MyFile.WriteLine(pencat) MyFile.Close response.Write(gg&"\"&fname) %>
<% '在数据库中增加一条文章记录 set rs=server.createobject("adodb.recordset") sql="select * from article where (newsid is null)" rs.open sql,conn,1,3 rs.addnew rs("title")=title rs("path")=filepath rs("content")=content rs("Nfrom")=from rs("selectpic")=selectpic rs("typeid")=typeid rs("typename")=typename1 rs("tjnews")=tjnews rs("shenghe")=shenghe rs("N_Fname")=fname rs("zznews")=zznews rs("about")=about rs.update articleid=rs("newsid") 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="myaddarticle.asp"> 是</a> <a href="Mymanage.asp">否</a><br> <br> </p> </td> </tr> </table></div>
这是保存页面。
2005-07-22 08:23
2005-07-22 17:45
是不是你articleconn.asp里面有on error resume next
并且文章内容字段不够大 导致出错 而没能加入数据库 导致生成文件等一系列操作都出错 由于resume next 致使程序濒临崩溃
2005-07-23 08:19
2005-07-23 11:52
2005-07-23 12:33
