这个是create_brand.asp的代码
<!--#include file="../inc/connDB.asp" -->
<%
'判断用户登录
if session("curUserName")="" then
response.write "<br><br><p align=center>请确认您是否具备本次操作的权限！</p>"
response.end
end if
if trim(request("act"))="create" then
id=trim(request.form("id"))
set rs= Server.CreateObject("adodb.recordset")
sql="select brand_id,area,chinese,english,logo,remark from t_cars_brand "
if len(id)=6 then
sql=sql&" where brand_id='"&id&"' "
end if
sql=sql&" order by brand_id asc"
rs.open sql,conn,1,1
i=0
do while not rs.eof
call WriteXMLfiles(rs(0),rs(1),rs(2),rs(3),rs(4),rs(5))
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
response.Redirect(request.ServerVariables("SCRIPT_NAME")&"?n="&i)
end if
sub WriteXMLfiles(str1,str2,str3,str4,str5,str6)
xmlStr="<?xml version=""1.0"" encoding=""gb2312""?>"&VBCRLF
xmlStr=xmlStr&"<品牌>"&VBCRLF
xmlStr=xmlStr&" <编号>"&trim(str1)&"</编号>"&VBCRLF
xmlStr=xmlStr&" <产地>"&trim(str2)&"</产地>"&VBCRLF
xmlStr=xmlStr&" <中文>"&trim(str3)&"</中文>"&VBCRLF
xmlStr=xmlStr&" <英文>"&trim(str4)&"</英文>"&VBCRLF
xmlStr=xmlStr&" <图片>"&trim(str5)&"</图片>"&VBCRLF
xmlStr=xmlStr&" <备注><![CDATA["&trim(str6)&"]]></备注>"&VBCRLF
xmlStr=xmlStr&"</品牌>"
newfile="/xmldata/brand/"&str1&".xml"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(newfile))
fout.WriteLine xmlStr
fout.close
set fout=nothing
set fso=nothing
end sub
%>
<link href="../inc/manage_style.css" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="5">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="table-border">
<tr>
<td class="title-bground">生成品牌XML数据</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="CreateBrandForm" method="post" action="?act=create">
<tr>
<td width="24%" align="center"> </td>
<td width="76%"> </td>
</tr>
<tr>
<td align="center">指定品牌编号：</td>
<td><input name="id" type="text" class="input-txt" id="id" maxlength="12"></td>
</tr>
<tr>
<td align="center"> </td>
<td> </td>
</tr>
<tr>
<td align="center"> </td>
<td><input name="Submit" type="submit" class="input-btn" value=" 生 成 "></td>
</tr>
<tr>
<td align="center"> </td>
<td>
<%
if trim(request("n"))<>"" then response.write " <font color=red>共生成个"&request("n")&"XML文件</font>"
%>
</td>
</tr>
<tr>
<td align="center"> </td>
<td> </td>
</tr>
<tr>
<td align="center"> </td>
<td>不指定品牌编号则全部生成</td>
</tr>
<tr>
<td align="center"> </td>
<td> </td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="font9">
<tr>
<td align="center"><%= syseditor %></td>
</tr>
</table>
[
本帖最后由 ff0198 于 2007-9-29 16:33 编辑 ]
