求助。。GODADDY.ASP生成HTM文件名问题。。。

xwbar

1. <!--#include file="articleconn.asp"-->
   
2. <%
   
3. function changechr(str)
   
4.     changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"
   
5. ")," ","&nbsp;")
   
6.     changechr=replace(replace(replace(replace(changechr,"[sayyes]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
   
7.     changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>")
   
8. end function
   
9. 
   
10. function makefilename(fname)
    
11.   fname = now()
    
12.   fname = replace(fname,"-","")
    
13.   fname = replace(fname," ","")
    
14.   fname = replace(fname,":","")
    
15.   fname = replace(fname,"PM","")
    
16.   fname = replace(fname,"AM","")
    
17.   fname = replace(fname,"上午","")
    
18.   fname = replace(fname,"下午","")
    
19.   makefilename=fname & ".htm"
    
20. end function
    
21. %>
    
22. 
    
23. <%
    
24. IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN
    
25.         response.redirect "mymanage.asp"
    
26.         response.end
    
27. END IF
    
28. 
    
29. if request.form("txttitle")="" then
    
30. response.write "错误提示:请输入文章标题!"
    
31. response.end
    
32. end if
    
33. if request.form("txtcontent")="" then
    
34. response.write "错误提示:请未输入文章内容!"
    
35. response.end
    
36. end if
    
37. dim title
    
38. dim content
    
39. dim sql
    
40. dim rs
    
41. dim articleid
    
42. dim classid,Nclassid
    
43. dim from
    
44. 
    
45. title=request.form("txttitle")
    
46. from=request.form("Nfrom")
    
47. zznews=request.form("zznews")
    
48. typeid=request.form("typeid")
    
49. about=request.form("about")
    
50. 
    
51. 
    
52. dim sql1
    
53. dim rs1
    
54. dim typename1
    
55. sql1="select * from type where typeid="&typeid
    
56. set rs1=server.createobject("adodb.recordset")
    
57. rs1.open sql1,conn,1,1
    
58. typename1=rs1("type")
    
59. filepath=rs1("typename")
    
60. 
    
61. if request.form("checkbox1")="1" then
    
62. tjnews=1
    
63. else
    
64. tjnews=2
    
65. end if
    
66. 
    
67. if request.form("checkbox3")="1" then
    
68. selectpic=1
    
69. else
    
70. selectpic=0
    
71. end if
    
72. 
    
73. 
    
74. if Session("KEY")="input" then
    
75. shenghe=2
    
76. else
    
77. if request.form("checkbox2")="1" then
    
78. shenghe=2
    
79. else
    
80. shenghe=1
    
81. end if
    
82. end if
    
83. 
    
84. content=changechr(request.form("txtcontent"))
    
85.         set rs = server.CreateObject("ADODB.RecordSet")
    
86.                StrSql = "select E_Memo from Example where id="+request("Example")
    
87.         set rs = conn.Execute (StrSql)
    
88. fname = makefilename(now())
    
89. 
    
90. dddd = year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now())
    
91. pencat=rs("E_Memo")
    
92. pencat=replace(pencat,"lx",typename1)
    
93. pencat=replace(pencat,"Date",dddd)
    
94. if from="" then
    
95. pencat=replace(pencat,"From","醉心消息")
    
96. else
    
97. pencat=replace(pencat,"From",from)
    
98. end if
    
99. if zznews="" then
    
100. pencat=replace(pencat,"Fname","醉心消息")
     
101. else
     
102. pencat=replace(pencat,"Fname",zznews)
     
103. end if
     
104. pencat=replace(pencat,"H_Title",title)
     
105. pencat=replace(pencat,"H_Memo",content)
     
106. pencat=replace(pencat,"labout",about)
     
107. 
     
108. Set fso = Server.CreateObject("Scripting.FileSystemObject")
     
109. Set fout = fso.CreateTextFile(server.mappath(filePath& "" & fname))
     
110. fout.WriteLine pencat
     
111. fout.close
     
112. 
     
113. set rs=server.createobject("adodb.recordset")
     
114. sql="select * from article where (newsid is null)"
     
115. rs.open sql,conn,1,3
     
116. rs.addnew
     
117. rs("title")=title
     
118. rs("path")=filepath
     
119. rs("content")=content
     
120. rs("Nfrom")=from
     
121. rs("selectpic")=selectpic
     
122. rs("typeid")=typeid
     
123. rs("typename")=typename1
     
124. rs("tjnews")=tjnews
     
125. rs("shenghe")=shenghe
     
126. rs("N_Fname")=fname
     
127. rs("zznews")=zznews
     
128. rs("about")=about
     
129. rs.update
     
130. 
     
131. articleid=rs("newsid")
     
132. rs1.close
     
133. set rs1=nothing
     
134. rs.close
     
135. set rs=nothing
     
136. conn.close
     
137. set conn=nothing
     
138. %><head>
     
139. </head>
     
140. 
     
141. 
     
142. 
     
143. <div align="center">
     
144.   <table border="0" cellspacing="1" width="50%" bgcolor="#000000" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF" cellpadding="0">
     
145.     <tr bgcolor="#000066">
     
146.       <td width="100%" height="20">
     
147.         <p align="center"><font color="#FFFFFF"><b>添加文章成功</b></font>
     
148.       </td>
     
149.     </tr>
     
150.     <tr>
     
151.       <td width="100%" bgcolor="#FFFFFF">
     
152.         <p align="left">
     
153. 
     
154.         其文件名为：<%=fname%>
     
155. 
     
156.         文件标题为：<%response.write title%></p>
     
157.     <p align="center">是否继续添加？
     
158. 
     
159.          
     
160. 
     
161.     <a href="myaddarticle.asp">
     
162.     是</a>&nbsp;&nbsp; <a href="mymanage.asp">否</a>
     
163. 
     
164.    
     
165. 
     
166.     </p>
     
167.         </td>
     
168.     </tr>
     
169.     </table>
     
170. </div>

复制代码

这段ASP代码，是取文章当前发布时间作为生成HTM的。。
我想取文章ID做为生成HTM的文件名，请问该怎么改，文章ID函数是 newsid
这段代码在国内空间上是可以正常按时间生成文件的。但放到GODADDY上之后生成的文件就变成了文件名为：6/30/2010100640.htm这样的，多了目录路径。。
所以我想把它换成用文章ID作为文件名，但是我改了半天都不能生成。。
请教！

add.c

不会改  帮顶一次

xwbar

高手帮帮忙

xwbar

:)

xwbar

:) :)

sharesun

人家是英文系统，日期时间的格式是 6/30/2010 这样的，而国内的中文系统格式是 2010-06-30，所以如果用日期生成文件名，必须先把“/”用replace替换成“-”，这样就不会生成那么多的路径了，所以如果我的想法没有错误的话，可以按如下修改一试：
function makefilename(fname)
  fname = now()


这里把 fname = now() 改成 fname = replace(now(),"/","-")


这样修改后，原先应该生成 2010-06-30.html 这样的形式，变成 06-30-2010.html 了，希望能帮到你。

[ 本帖最后由 sharesun 于 2010-7-1 08:14 PM 编辑 ]

xwbar

谢谢6楼的，我这样改了后文件名是变成你说的这样了。。
但是我生成后就页面空白，源码里只有这段代码
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312"></HEAD>
<BODY></BODY></HTML>

xwbar

目录有写权限

xwbar

解决了

Set fout = fso.CreateTextFile(server.mappath(filePath& "\" & fname),true,UTF-8)