yns_cab.asp

该软件是用asp编写的

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn_news.asp" -->
<%
Dim rsn__MMColParam
rsn__MMColParam = "1"
If (Request.Form("t_id") <> "") Then 
  rsn__MMColParam = Request.Form("t_id")
End If
%>
<%
Dim rsn
Dim rsn_numRows

Set rsn = Server.CreateObject("ADODB.Recordset")
rsn.ActiveConnection = MM_conn_news_STRING
rsn.Source = "SELECT * FROM t_news WHERE n_tid = " + Replace(rsn__MMColParam, "'", "''") + ""
rsn.CursorType = 0
rsn.CursorLocation = 2
rsn.LockType = 1
rsn.Open()

rsn_numRows = 0
%>
<%if rsn.eof and rsn.bof then%>
<script language=javascript>  
alert( "该类别没有新闻！"  );
location.href = "javascript:history.back()"   
</script>
<% Else %>
<%
Dim rsm__MMColParam
do while not rsn.EOF
rsm__MMColParam = "1"
If (Request.Form("m_id") <> "") Then 
  rsm__MMColParam = Request.Form("m_id")
End If
%>
<%
Dim rsm
Dim rsm_numRows

Set rsm = Server.CreateObject("ADODB.Recordset")
rsm.ActiveConnection = MM_conn_news_STRING
rsm.Source = "SELECT * FROM t_mob WHERE m_id = " + Replace(rsm__MMColParam, "'", "''") + ""
rsm.CursorType = 0
rsm.CursorLocation = 2
rsm.LockType = 1
rsm.Open()

rsm_numRows = 0
pencat = (rsm.Fields.Item("m_content").Value)
%>
<%
dim n_fpath
dim n_title
dim n_author
dim n_content
dim n_date
dim n_fname
 
n_fpath = request.form("t_id")
n_title = (rsn.Fields.Item("n_title").Value)
n_author = (rsn.Fields.Item("n_author").Value)
n_content = (rsn.Fields.Item("n_content").Value)
n_date = (rsn.Fields.Item("n_date").Value)
n_fname = (rsn.Fields.Item("n_fname").Value)

pencat = replace(pencat,"t_title",n_title)
pencat = replace(pencat,"t_author",n_author)
pencat = replace(pencat,"t_content",n_content)
pencat = replace(pencat,"t_date",n_date)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(n_fpath&"\"&n_fname),true)

fout.WriteLine pencat
fout.close
response.write("转换文件："&n_fpath&"\"&n_fname&"<br>")
%>
<%
rsm.Close()
Set rsm = Nothing
%>
<%
rsn.MoveNext 
loop
rsn.Close()
Set rsn = Nothing
%>
<% End If %>
<script language=javascript>  
alert( "模版转换完成"  );
location.href = "javascript:history.back()"   
</script>