<!--#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 '判断是否正确登陆 IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN response.redirect "mymanage.asp" response.end END IF name=request("name")'获取软件名称 address=request("address")'获取软件地址 ss=request("ss")'获取软件存取信息 '将输入框中的文章内容转换成网页格式的内容 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) '生成软件文件名 set rs1=server.CreateObject("adodb.recordset") sql1="select top1 from soft order by add desc" rs1.open sql1,conn,3,2 add1=rs1("add")+1 fname="soft_" & add1 & ".html" sql2="insert into soft(page,address,name,atime,path,add) values('" &fname& "','" & address & "','" & name & "','" & now() & "','" & softfile & "','" & add1 & "')" conn.execute(sql2) dddd = year(now()) & "-" & month(now()) & "-" & day(now()) '将模板内容赋给pencat pencat=rs("E_Memo") '将模板中Data替换为实际日期dddd pencat=replace(pencat,"Date",dddd) '将模板中HTITLE替换为实际软件名称 pencat=replace(pencat,"HTITLE",name) '将模板中WORD替换为实际文章内容 pencat=replace(pencat,"WORD",content) %> <% '将替换好的模板写进文件中 path=server.mapPath(soft) Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(path&"\"&fname, True) MyFile.WriteLine(pencat) MyFile.Close %> <% %><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 NAME%></p> <p align="center">是否继续添加？<br> <br> <a href="mysoftadd.asp"> 是</a> <a href="Mymanage.asp">否</a><br> <br> </p> </td> </tr> </table></div>
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft JET Database Engine
至少一个参数没有被指定值。
/caiyazhen/myhomepage/news/mysoftsave.asp，行29
