通过其他文件得到下面的值
"&domain&"
"&baidu&"
"&baidus&"
要实现在"&domain&"值存在的前提下，在"&year&month&"目录下创建"&domain&".asp(文件存在的话替换，不在在的话创建)
并保存内容为
--------------------高手请帮写代码。或者帮修正以下代码。
"" then
'****************** 写数据 ******************
Dim fso,f1,cnrs
MyFilePath=server.MapPath(""&month&"/"&domain&".asp")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(MyFilePath) then
Set f1 = fso.CreateTextFile(MyFilePath , True)
f1.close
Set fso = Server.CreateObject("Scripting.FileSystemObject")
NewFile="yes"
end if
set cnrs=fso.OpenTextFile(MyFilePath,1,True)
if NewFile="yes" then
TempStr2 = TempStr & chr(60) & "%" & VbCrLf
TempStr3 = TempStr & "'=====域名:"&now()&",=====" & VbCrLf
TempStr4 = TempStr & "domain = "& Chr(34) & domain & Chr(34) &"'" & VbCrLf
TempStr5 = TempStr & "'=====收录=====" & VbCrLf
TempStr6 = TempStr & "baidu = "& Chr(34) & baidu & Chr(34) &"'" & VbCrLf
TempStr7 = TempStr & "baidus = "& Chr(34) & baidus & Chr(34) &"'" & VbCrLf
tempStr8 = TempStr & "%" & chr(62) & VbCrLfcnrs.WriteLine(TmpStr)
cnrs.Close
end if
end if
%>
完全解决的话给分,大家测试下给我代码.谢谢!
|
