注册 登录
编程论坛 → ASP技术论坛

请各位版主，高手给看下ASp网站为题

旧日的足迹 发布于 2011-09-29 05:41， 472 次点击
http://down.
这个怎么不能发布信息呢，填写完成点击发布就是空白
2 回复
#2
icecool2011-09-29 08:09
这种问题，你最好是把你提交信息的页面以及提交到的页面源码文件发出来才知道是什么问题。

像这种下载的商网通常都不会是完整的，要付费别人给完整源码的。
#3
旧日的足迹2011-09-29 18:59
填写的是这个
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<%
if request.cookies("cnmai")("username")<>"" or request.cookies("cnmai")("per")<>"" or request("cnmai")<>"" then
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>-我要发布信息</title>
<script>
function loadThreadFollow(t_id,b_id){
    var targetImg =eval("document.all.followImg" + t_id);
    var targetDiv =eval("document.all.follow" + t_id);
   
    if ("object"==typeof(targetImg)){
        if (targetDiv.style.display!='block'){
            targetDiv.style.display="block";
            
        }else{
            targetDiv.style.display="none";
        }
    }
}
</script>

<SCRIPT language=javascript>
<!--
function CheckForm()
{
if(document.myform.class1.value.length<1)
    {
        alert("请选择一级分类!");
        document.myform.class1.focus();
        return false;
    }
if(document.myform.class2.value.length<1)
    {
        alert("请选择二级分类!!");
        document.myform.class2.focus();
        return false;
    }
if(document.myform.leixing.value.length<1)
    {
        alert("请选择信息类别!");
        document.myform.leixing.focus();
        return false;
    }
if(document.myform.biaoti.value.length<3)
    {
        alert("信息标题没有填写或内容太少!");
        document.myform.biaoti.focus();
        document.myform.biaoti.select();
        return false;
    }   
if(document.myform.memo.value.length<3)
    {
        alert("信息内容没有填写或内容太少!");
        document.myform.memo.focus();
        document.myform.memo.select();
        return false;
    }
if(document.myform.name.value.length<1)
    {
        alert("联系人姓名没有填写!");
        document.myform.name.focus();
        document.myform.name.select();
        return false;
    }
if(document.myform.dianhua.value.length<1)
    {
        alert("联系电话没有填写!");
        document.myform.dianhua.focus();
        document.myform.dianhua.select();
        return false;
    }
if(document.myform.yzm.value.length<1)
    {
        alert("验证码没有填写!");
        document.myform.yzm.focus();
        document.myform.yzm.select();
        return false;
    }
}
//-->
</SCRIPT>
<SCRIPT language=javascript>
<!--
function CheckForm1()
{
if(document.myform1.class1.value.length<1)
    {
        alert("请选择一级分类!");
        document.myform1.class1.focus();
        return false;
    }
if(document.myform1.class2.value.length<1)
    {
        alert("请选择二级分类!!");
        document.myform1.class2.focus();
        return false;
    }
if(document.myform1.leixing.value.length<1)
    {
        alert("请选择信息类别!");
        document.myform1.leixing.focus();
        return false;
    }
if(document.myform1.biaoti.value.length<3)
    {
        alert("信息标题没有填写或内容太少!");
        document.myform1.biaoti.focus();
        document.myform1.biaoti.select();
        return false;
    }
if(document.myform1.memo.value.length<3)
    {
        alert("信息内容没有填写或内容太少!");
        document.myform1.memo.focus();
        document.myform1.memo.select();
        return false;
    }
if(document.myform1.name.value.length<1)
    {
        alert("联系人姓名没有填写!");
        document.myform1.name.focus();
        document.myform1.name.select();
        return false;
    }
if(document.myform1.dianhua.value.length<1)
    {
        alert("联系电话没有填写!");
        document.myform1.dianhua.focus();
        document.myform1.dianhua.select();
        return false;
    }
if(document.myform1.yzm.value.length<1)
    {
        alert("验证码没有填写!");
        document.myform1.yzm.focus();
        document.myform1.yzm.select();
        return false;
    }
}
//-->
</SCRIPT>
</head>
<body topmargin="0">
<div align="center"><%call t()%><DIV class=h></DIV>
<table width="760" id="table1" bgcolor="#FFFFFF" style="padding:1px; " cellspacing="0" cellpadding="0">
<tr>
<td width="978" colspan="3"></td>
</tr>
<tr>
<td width="978" colspan="3"></td>
</tr>
<tr>
<td width="70%" class="td">
<%if request("cnmai")="free" then%>
<form action="axxchk.asp" name="myform" method="POST" style="line-height: 100%; margin-top: 0; margin-bottom: 0">
<div align="center">
<table width="100%" border="0" bordercolor="#FFFFFF" cellpadding="0" style="border-collapse: collapse">               
<tr>
<td class=td1 colspan="2">&nbsp;位置导航：<a href="/">首页</a>→游客快速发布</td>
</tr>
<tr>
<td align="center" class=tdh rowspan="17" width="13%">　</td>
<td>
　</td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">信息版块：<%
dim rsclass,sqlclass
username=request.cookies("cnmai")("username")
set rsclass=server.createobject("adodb.recordset")
sqlclass = "select * from class2 order by paixu desc"
rsclass.open sqlclass,conn,1,1
%><SCRIPT language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rsclass.eof
        %>
subcat[<%=count%>] = new Array("<%= trim(rsclass("class2"))%>","<%= trim(rsclass("class1"))%>","<%= trim(rsclass("id"))%>");
        <%
        count = count + 1
        rsclass.movenext
        loop
        rsclass.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.class2.length = 0;

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            {
                document.myform.class2.options[document.myform.class2.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }   
</SCRIPT><%
sqlclass = "select * from class1 order by paixu desc"
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
response.write "请先添加栏目。"
response.end
else
%><SELECT name="class1" onChange="changelocation(document.myform.class1.options[document.myform.class1.selectedIndex].value)" size="1">
<OPTION selected value=>分类</OPTION>
<%do while not rsclass.eof
%><OPTION value="<%=trim(rsclass("id"))%>"><%=trim(left(rsclass("class1"),5))%></OPTION>
<%
rsclass.movenext
loop
end if
rsclass.close
%></SELECT>
<SELECT name="class2">
<OPTION selected value=>二级分类</OPTION>
</SELECT>
<font color="#FF0000" value="">*</font></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">信息标题：<%call leixs()%><input type="text" maxlength="30" name="biaoti" size="40">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">信息地区：<%call dix()%></td></tr>
<tr>
<td height="26" width="87%" class="tdx"><p style="margin-left: 50px">详细说明：<textarea rows="5" name="memo" cols="39"></textarea><font color="#FF0000">*</font></td></tr>

<tr>
<td height="26" width="87%" class="tdx"><p style="margin-left: 50px">图片地址：<input type="text" name="tupian" size="40"><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
游客不能上传图片,<a href="reg.asp">我要注册成会员</a></td></tr>

<tr>
<td height="26" width="87%" class="tdx"><p style="margin-left: 50px">&nbsp; 联系人：<input type="text" name="name" size="15" maxlength="20"><font color="#FF0000">*</font></td></tr>
<tr>
<td height="26" width="87%" class="tdx"><p style="margin-left: 50px">联系电话：<input type="text" name="dianhua" size="21" maxlength="40"><font color="#FF0000"> *</font></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx"><p style="margin-left: 50px">&nbsp;&nbsp; Email：<input type="text" name="email" size="21" maxlength="40"><font color="#FF0000"> *</font>QQ:<!--webbot bot="Validation" s-data-type="Number" s-number-separators="x." i-maximum-length="10" --><input type="text" name="qq" size="12" maxlength="10"></td>
</tr>
<tr><td height="26" width="87%" class="tdx"><p style="margin-left: 50px">联系地址：<input type="text" name="dizhi" size="40" maxlength="20"></td>
</tr>
<tr><td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">发布天数：<font face="宋体" size="2"><select name="days" size="1">
<option value="1">一天</option>
<option value="7" selected>一周</option>
<option value="15">半个月</option>
</select></td>
</tr>
<tr><td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">验 证 码：<input type=text name=yzm size=9> 请将<img src=yzm.asp title="看不清请刷新页面" border=0>输入框中</td>
</tr>
<tr><td height="26" class="tdx" align="center">
<font face="宋体" size="2"><a href="reg.asp">&nbsp;注册用户可以使用4大道具,还可以推荐您的信息...</a></td>
</tr>
<tr>
<td height="44" width="87%">
<p align="center">
<input type="submit" onclick="javascript:return CheckForm();" value="写好了，提交信息" name="B1">　<input type="reset" value="重写" name="B2"></td>
</tr>            
<tr>
<td>
　</td>
</tr>            
</table>
</div>
</form>
<%else%>
<form action="axxchk.asp" name="myform1" method="POST" style="line-height: 100%; margin-top: 0; margin-bottom: 0">
<div align="center">
<table width="100%" border="0" bordercolor="#FFFFFF" cellpadding="0" style="border-collapse: collapse">               
<tr>
<td class=td1 colspan="2">&nbsp;位置导航：<a href="/">首页</a>→会员发布信息</td>
</tr>
<tr>
<td class=tdh align="center" rowspan="16" width="13%">　</td>
<td width="87%">
　</td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">信息版块：<%
username=request.cookies("cnmai")("username")
set rsclass=server.createobject("adodb.recordset")
sqlclass = "select * from class2 order by paixu desc"
rsclass.open sqlclass,conn,1,1
%><SCRIPT language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rsclass.eof
        %>
subcat[<%=count%>] = new Array("<%= trim(rsclass("class2"))%>","<%= trim(rsclass("class1"))%>","<%= trim(rsclass("id"))%>");
        <%
        count = count + 1
        rsclass.movenext
        loop
        rsclass.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform1.class2.length = 0;

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            {
                document.myform1.class2.options[document.myform1.class2.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }   
</SCRIPT><%
sqlclass = "select * from class1 order by paixu desc"
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
response.write "请先添加栏目。"
response.end
else
%><SELECT name="class1" onChange="changelocation(document.myform1.class1.options[document.myform1.class1.selectedIndex].value)" size="1">
<OPTION selected value=>==分类==</OPTION>
<%do while not rsclass.eof
%><OPTION value="<%=trim(rsclass("id"))%>"><%=trim(mid(rsclass("class1"),1,5))%></OPTION>
<%
rsclass.movenext
loop
end if
rsclass.close
%></SELECT>
<SELECT name="class2">
<OPTION selected value=>==二级分类==</OPTION>
</SELECT>
<font color="#FF0000">*</font></td>
</tr>
<tr>
<%
set rs=server.createobject("adodb.recordset")
if request.cookies("cnmai")("com")<>"" then
sql = "select * from [com] where username='"&username&"'"
else
sql = "select * from [user] where username='"&username&"'"
end if
rs.open sql,conn,1,1
if rs.eof then
response.write "没有相关用户信息"
response.redirect "login.asp"
response.end
end if
%>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">信息标题：<%call leixs()%><input type="text" maxlength="80" name="biaoti" size="31">
<font color="#FF0000">*</font><%if rs("a")>0 then%>
<select name="a">
<option style="COLOR: black" value="0" selected 　title="醒目您的信息，推荐使用[标题变色]需要花1个[变色道具]">鲜明标题</option>
<option style="background: #0000FF" value="0000FF"></option>
</select>
<%else%> <font color="#999999">没有变色道具,请[兑换道具]吧</font>
<%end if%></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">信息地区：<%call dix()%></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">信息内容：<textarea rows="9" name="memo" cols="44"></textarea>
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
　　图片链接地址：<input type="text" name="tupian" size="32" id="tupian" maxlength="200"> <span id="followImg1" style="CURSOR: hand" title="选中上传店标图片" onclick="loadThreadFollow(1,5)">
无现成图片,</span><span id="followImg1" style="CURSOR: hand" onclick="loadThreadFollow(1,5)"><input type="checkbox" name="C3" value="ON"></span><span id="followImg1" style="CURSOR: hand" title="选中上传店标图片" onclick="loadThreadFollow(1,5)"><font color="#FF0000">上传图片</font></span></td>
</tr>
<tr style="display:none" id="follow1">
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<iframe name="I1" frameborder="0" width="71%" height="30" scrolling="no" src="uploadxinxi.asp"></iframe></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">&nbsp; 联系人：<input type="text" name="name" size="13" maxlength="20" value="<%=rs("name")%>">
<%if request.cookies("cnmai")("com")<>"" then%>－<input type="hidden" name="comper" value="com"><input type="text" name="com" size="25" maxlength="20" value="<%=rs("com")%>"><%else%><%end if%><font color="#FF0000">*</font></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">联系电话：<input type="text" name="dianhua" size="23" maxlength="40" value="<%=rs("dianhua")%>">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">&nbsp;&nbsp; Email：<input type="text" name="email" size="23" maxlength="40" value="<%=rs("email")%>">
<font color="#FF0000">* </font>QQ:<!--webbot bot="Validation" s-data-type="Number" s-number-separators="x." i-maximum-length="10" --><input type="text" name="qq" size="12" maxlength="10" value="<%=rs("QQ")%>"></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">联系地址：<input type="text" name="dizhi" size="43" maxlength="20" value="<%=rs("dizhi")%>"></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">发布天数：<select name="days" size="1">
<option value="1">一天</option>
<option value="3">三天</option>
<option value="7" selected>一周</option>
<option value="15">半个月</option>
<option value="30">一个月</option>
<option value="90">三个月</option>
</select>&nbsp;&nbsp;&nbsp;  置顶排行：<%
b=rs("b")
%><%if b>0 then%><select name="b">
<option value="0">不使用</option>
<%for f=1 to b%>
<option value="<%=f%>"><%=f%></option>
<%next%>
</select>个
<img border="0" src="image/tj.gif" title="使您的信息排在最前，数字越大越靠前,使用需要花n个[置顶道具]" width="10" height="11">
<%else%> <font color="#999999">没有道具,请[兑换道具]吧</font>
<%end if%></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">验证通过：<%if rs("d")>0 then%><input type="hidden" value="1" name="d" checked title="选中发布信息直接在页面显示，使用需要花1个[验证道具]">直接通过<%else%></font><input type="hidden" value="0" name="d" checked><font color="#ACACAC">没有验证道具，请[兑换道具]吧</font><%end if%></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">是否推荐：<%if request.cookies("cnmai")("vip")=1 then%><input type="radio" value="1" name="tui" title="选中推荐您的信息">推荐
<input type="radio" name="tui" value="0">不推荐<font color="#C0C0C0"><%else%></font><input type="radio" name="tui" value="0" checked><font color="#FF0000">您不是<a target="_blank" href="ab_help.asp">特约/VIP会员</a>，不能使用推荐，请联系我们推荐您的信息</font><%end if%></td>
</tr>
<tr>
<td height="26" width="87%" class="tdx">
<p style="margin-left: 50px">验 证 码：<input type=text name=yzm size=9> 请将<img src=yzm.asp title="看不清请刷新页面" border=0>输入框中</td>
</tr>
<tr>
<td height="40" width="87%">
<p align="center">
<input type="submit" onclick="javascript:return CheckForm1();" value="写好了，提交信息" name="B1">　<input type="reset" value="重写" name="B2"></td>
</tr>                       
</table>
</div>
</form>
<%
rs.close
set rs=nothing
closedb
end if
%></td>
<td valign="top" width="2%">
<img border="0" src="image/ax.gif" width="25" height="257"></td>
<td valign="top" width="25%" class="td">
　</td>
</tr>
</table>
<!--#include file="foot.asp"-->
</div>
</body>
</html>
<%
else
response.redirect "login.asp"
end if %>
-------------------------------------------
点击提交后去这里

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<%
if session("addxinxi")<>"" then
  if DateDiff("s",session("addxinxi"),Now())<30 then
  Response.Write "<script language='javascript'>alert('系统保护：你提交数据太快，系统中止运行，请等待30秒钟！');history.back();</script>"
  response.end
  end if
end if

dim CheckCode
CheckCode=LCase(trim(Request.Form("yzm")))
if CheckCode<>LCase(CStr(Session("pSN"))) then
response.Write "<script language='javascript'>alert('验证码不正确！);history.back();</script>"
response.end
end if

username=request.cookies("cnmai")("username")
class1=trim(request("class1"))
class2=trim(request("class2"))
biaoti=CheckStr(trim(request("biaoti")))
sdays=trim(request("days"))

if right(request("tupian"),4)=".gif" or right(request("tupian"),4)=".bmp" or right(request("tupian"),4)=".jpg" or right(request("tupian"),5)=".jpeg" or request("tupian")="" then
else
Response.Write "<script language='javascript'>alert('请正确填写图片地址！');history.back();</script>"
response.end
end if

if username<>"" then
set rs=server.createobject("adodb.recordset")
if request("comper")="com" then
sql = "select * from [com] where username='"&username&"'"
else
sql = "select * from [user] where username='"&username&"'"
end if
rs.open sql,conn,1,3
rs("jf")=rs("jf")+jf_3
if len(request("a"))=6 and rs("a")>=1 then
rs("a")=rs("a")-1
end if
if request("b")>=1 and rs("b")>=1 then
rs("b")=rs("b")-int(request("b"))
end if
if request("tupian")<>"" and rs("c")>=1 then
rs("c")=rs("c")-1
end if
if request("d")="1"then
rs("d")=rs("d")-1
else
rs("d")=0
end if

rs.update
rs.close
set rs=nothing
end if

set rs=server.createobject("adodb.recordset")
sql = "select * from xinxi"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("class1")=class1
rs("class2")=class2
rs("leixing")=request("leixing")
rs("biaoti")=biaoti
if request("dd")="1" then
'rs("zk")=request("zk")
end if
rs("diqu")=trim(request("diqu"))
'rs("jiage")=CheckStr(trim(request("jiage")))
rs("memo")=CheckStr(trim(request("memo")))
rs("name")=CheckStr(trim(request("name")))
rs("dianhua")=CheckStr(trim(request("dianhua")))
rs("email")=CheckStr(trim(request("email")))
rs("qq")=CheckStr(trim(request("qq")))
rs("dizhi")=CheckStr(trim(request("dizhi")))
if request("tupian")="" then
rs("tupian")=0
else
rs("tupian")=CheckStr(trim(request("tupian")))
end if

if username<>"" then
rs("com")=CheckStr(trim(request("com")))
rs("a")=request("a")
rs("b")=request("b")
rs("yz")=request("d")
rs("tuijian")=request("tui")
end if

rs("fbsj")=now()
rs("dqsj")= dateadd("d", sdays, now)
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then
userip=Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
rs.update
session("addxinxi")=now()
id=rs("id")
rs.update

rs.close  
set rs=nothing                                                                                    
conn.close   
set conn=nothing
if username<>"" then
''''''''''''''''''生成html开始''''''''''''''''''''''''''
ServerURL=CStr(Request.ServerVariables("SCRIPT_NAME"))
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
ServerURL=left(ServerURL, n)'显示从左边数第"n"个字符前面的字符,
ServerURL="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURL&"x.asp?cnmai="&id&""
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing
set objfso = Server.CreateObject("Scripting.FileSystemObject")
set htmout = objfso.CreateTextFile(server.mappath("html/"&id&".htm"))
AA=replace(AA,"uptupian/","../uptupian/")
AA=replace(AA,"img/","../img/")
AA=replace(AA,"link.asp","../link.asp")
AA=replace(AA,"links.asp","../links.asp")
AA=replace(AA,"index.asp","../index.asp")
AA=replace(AA,"te.asp","../te.asp")
AA=replace(AA,"foot.asp","../foot.asp")
AA=replace(AA,"foot.asp","../foot.asp")
AA=replace(AA,"user.asp","../user.asp")
AA=replace(AA,"x_hf.asp","../x_hf.asp")


AA=replace(AA,"reg.asp","../reg.asp")
AA=replace(AA,"login.asp","../login.asp")

AA=replace(AA,"axx.asp","../axx.asp")
AA=replace(AA,"com_e_x.asp","../com_e_x.asp")
AA=replace(AA,"x.asp","../x.asp")

AA=replace(AA,"html/","")
AA=replace(AA,"ab_book.asp","../ab_book.asp")
AA=replace(AA,"ab_ads.asp","../ab_ads.asp")
AA=replace(AA,"ab_about.asp","../ab_about.asp")
AA=replace(AA,"ab_help.asp","../ab_help.asp")

htmout.write replace(AA,"image/","../image/")
htmout.close  
set htmout=nothing  
set objfso=nothing  
''''''''''''''''''生成html结束''''''''''''''''''''''''''
Response.Write "<script language='javascript'>alert('您的信息发布成功了');</script>"
else
''''''''''''''''''生成html开始''''''''''''''''''''''''''
ServerURL=CStr(Request.ServerVariables("SCRIPT_NAME"))
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
ServerURL=left(ServerURL, n)'显示从左边数第"n"个字符前面的字符,
ServerURL="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURL&"x.asp?cnmai="&id&""
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing
set objfso = Server.CreateObject("Scripting.FileSystemObject")
set htmout = objfso.CreateTextFile(server.mappath("html/"&id&".htm"))
AA=replace(AA,"uptupian/","../uptupian/")
AA=replace(AA,"link.asp","../link.asp")
AA=replace(AA,"links.asp","../links.asp")
AA=replace(AA,"index.asp","../index.asp")



AA=replace(AA,"user.asp","../user.asp")



AA=replace(AA,"reg.asp","../reg.asp")
AA=replace(AA,"login.asp","../login.asp")

AA=replace(AA,"axx.asp","../axx.asp")
AA=replace(AA,"com_e_x.asp","../com_e_x.asp")
AA=replace(AA,"x.asp","../x.asp")

AA=replace(AA,"html/","")
AA=replace(AA,"ab_book.asp","../ab_book.asp")
AA=replace(AA,"ab_ads.asp","../ab_ads.asp")
AA=replace(AA,"ab_about.asp","../ab_about.asp")
AA=replace(AA,"ab_help.asp","../ab_help.asp")

htmout.write replace(AA,"image/","../image/")
htmout.close  
set htmout=nothing  
set objfso=nothing  
''''''''''''''''''生成html结束''''''''''''''''''''''''''
Response.Write "<script language='javascript'>alert('(游客)您的信息发布成功了,我们将在24小时内审核通过');</script>"
end if
response.write "<meta http-equiv=refresh content=""1;URL=index.asp"">"
response.end
%>
1
©2025, BC-CN.NET
电脑版