addad_news.asp

一个综合类整站

<!--#include file="conn.asp"-->
<%if session("china_admin")="" then
response.redirect "login.asp"
end if

dim dtitle,dcolor,dbgcolor1,dcu,dlei,dispic,dpic,dtext,dstop,dtop,dmoney,sql,rs
dim city_one,city_two,city_three,city_oneid,city_twoid,city_threeid
dtitle=HtmlEncode(trim(request.form("dtitle")))
dcolor=HtmlEncode(trim(request.form("dcolor")))
dbgcolor1=HtmlEncode(trim(request.form("dbgcolor1")))
dcu=HtmlEncode(trim(request.form("dcu")))
city_oneid=HtmlEncode(trim(request.form("city_one")))
city_twoid=HtmlEncode(trim(request.form("city_two")))
city_threeid=HtmlEncode(trim(request.form("city_three")))
dlei=HtmlEncode(trim(request.form("dlei")))
dpic=HtmlEncode(trim(request.form("dpic")))
dtext=HtmlEncode2(request.form("dtext"))
dstop=dateadd("d",request.form("dstop"),date())
dtop=HtmlEncode(trim(request.form("dtop")))

if dmoney<>"" then
  if isnumeric(dmoney)=false then
  response.write "<script>alert('信息费用请填写数字，立即返回！');history.back();</script>"
  response.end
  end if
end if

if city_oneid<>"" then
set rs=server.createobject("adodb.recordset")
rs.open "select city from china_city where twoid=0 and threeid=0 and id="&city_oneid,conn,1,1
city_one=rs("city")
rs.close
if city_twoid<>"" then
rs.open "select city from china_city where id="&city_oneid&" and threeid=0 and twoid="&city_twoid,conn,1,1
city_two=rs("city")
rs.close
end if
if city_twoid<>"" and city_threeid<>"" then
rs.open "select city from china_city where id="&city_oneid&" and twoid="&city_twoid&" and threeid="&city_threeid,conn,1,1
city_three=rs("city")
rs.close
end if
set rs=nothing
end if

set rs=server.createobject("adodb.recordset")
sql="select * from news_data"
rs.open sql,conn,1,3
if dtitle<>"" then
rs.addnew
if city_twoid="" then city_twoid=0
if city_threeid="" then city_threeid=0
rs("city_oneid")=city_oneid
rs("city_one")=city_one
rs("city_two")=city_two
rs("city_twoid")=city_twoid
rs("city_three")=city_three
rs("city_threeid")=city_threeid
rs("title")=dtitle
rs("color")=dcolor
rs("bgcolor1")=dbgcolor1
rs("cu")=dcu
rs("type")=dlei
rs("ispic")=dispic
if dpic="http://" then
dpic=""
end if
rs("pic")=dpic
rs("text")=dtext
rs("stop")=dstop
rs("top")=dtop
rs.update
id=rs("adid")
rs.close
rs.close:set rs=nothing                                                                                   
conn.close:set conn=nothing
''''''''''''''''''生成html开始''''''''''''''''''''''''''
ServerURL=CStr(Request.ServerVariables("SCRIPT_NAME"))
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
ServerURL=left(ServerURL, n-1)'显示从左边数第"n-1"个字符前面的字符,
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
ServerURL=left(ServerURL, n)'显示从左边数第"n"个字符前面的字符,
ServerURL="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURL&"news.asp?id="&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/news/"&id&".htm")) 
AA=replace(AA,"post.asp","../../post.asp") 
AA=replace(AA,"adpic/","../../adpic/") 
AA=replace(AA,"link.asp","../../link.asp")
AA=replace(AA,"link_img.asp","../../link_img.asp")
AA=replace(AA,"index.asp","../../index.asp")
AA=replace(AA,"114/../../index.asp","../../114/index.asp")
AA=replace(AA,"ad.asp","../../ad.asp")
AA=replace(AA,"TV.asp","../../tv.asp")
AA=replace(AA,"user.asp","../../user.asp")
AA=replace(AA,"gbook.asp","../../gbook.asp")
AA=replace(AA,"city.asp","../../city.asp")
AA=replace(AA,"city_more.asp","../../city_more.asp")
AA=replace(AA,"reg.asp","../../reg.asp")
AA=replace(AA,"login.asp","../../login.asp")
AA=replace(AA,"search.asp","../../search.asp")
AA=replace(AA,"114/join.asp","../../114/join.asp")
AA=replace(AA,"114/qy../../login.asp","../../114/qylogin.asp")
AA=replace(AA,"fabu.asp","../../fabu.asp")
AA=replace(AA,"type.asp","../../type.asp")
AA=replace(AA,"rq_message.asp","../../rq_message.asp")
AA=replace(AA,"top.asp","../../top.asp")
AA=replace(AA,"money.asp","../../money.asp")
AA=replace(AA,"pic.asp","../../pic.asp")
AA=replace(AA,"bbs/","../../bbs/")
AA=replace(AA,"html/news/","")
AA=replace(AA,"about.asp","../../about.asp")
htmout.write replace(AA,"images/","../../images/")
htmout.close 
set htmout=nothing  
set objfso=nothing  
''''''''''''''''''生成html结束''''''''''''''''''''''''''
response.redirect "ok_news.asp"
end if%>

<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>发布信息</title>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function checkadd()
{   

                   //检查年月日是否是合法日期

                   function isdate(intYear,intMonth,intDay){ 

                      if(isNaN(intYear)||isNaN(intMonth)||isNaN(intDay)) return false;     

                      if(intMonth>12||intMonth<1) return false;  

                      if ( intDay<1||intDay>31)return false;  

                      if((intMonth==4||intMonth==6||intMonth==9||intMonth==11)&&(intDay>30)) return false;  

                      if(intMonth==2){  

                         if(intDay>29) return false;    

                         if((((intYear%100==0)&&(intYear%400!=0))||(intYear%4!=0))&&(intDay>28))return false;  

                        }  

                      return true;  

                   }  
    if (document.postart.dtitle.value.length<1)
	{
        alert("请填写信息标题！");
        document.postart.dtitle.focus();
        return false;
    }
	if (document.postart.city_one.value=="")
	{
        alert("请您选择城市！");
        document.postart.city_one.focus();
        return false;
    }
    if (document.postart.dlei.value=="选择信息类别")
	{
        alert("请选择信息类别！");
        document.postart.dlei.focus();
        return false;
    }
	if (document.postart.dtext.value.length<1)
	{
        alert("请填写信息内容！");
        document.postart.dtext.focus();
        return false;
    }
    if (document.postart.dtext.value.length>20000)
	{
        alert("请把信息内容的字数控制在200000以内！");
        document.postart.dtext.focus();
        return false;
    }

	if (document.postart.dstop.value=="选择有效期")
	{
        alert("请选择有效期！");
        document.postart.dstop.focus();
        return false;
    }
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">      
<!-- Begin
maxLen = 200000;
function checkMaxInput(form) {
if (form.dtext.value.length > maxLen)
form.remLen.value = 0;
else form.remLen.value = maxLen - form.dtext.value.length;
}
//  End -->
</script>

<script language="javascript" type="text/javascript">
<!--
function changeColor(o) {
    document.getElementById("colorBox").style.color = o.value;
}
//-->
</script>
<script language="javascript" type="text/javascript">
<!--
function changeColor1(o) {
    document.getElementById("colorBox1").style.background = o.value;
}
//-->
</script>


</head>

<body background="images/background.gif">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
  <tr>
    <td height="20" bgcolor="#799AE1" align="center"><font color="#FFFFFF" style="font-size:14px">发 
      布 新 闻</font></td>
  </tr>
  <tr>