ads_addads.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

                  <table border="0">
                    <tr> 
                      <td> 
                      　</td>
                      <td>&#28857;&#20987;&#25968;&#19981;&#36229;&#36807;</td>
                      <td> 
                        <input type=text name=clicks4 size=8>                      </td>
                    </tr>
                    <tr> 
                      <td align=center> </td>
                      <td>&#26174;&#31034;&#25968;&#19981;&#36229;&#36807;</td>
                      <td> 
                        <input type=text name=shows4 size=8>                      </td>
                    </tr>
                  </table>                </td>
              </tr>
              <tr> 
               <td align=right><font color=red>（6）</font>
                <input type=radio value=5 name=class></td>

                <td colspan="2"> 
                  <table border="0">
                    <tr> 
                      <td> 
                      　</td>
                      <td>&#28857;&#20987;&#25968;&#19981;&#36229;&#36807;</td>
                      <td> 
                        <input type=text name=clicks5 size=8>                      </td>
                    </tr>
                    <tr> 
                      <td align=center> </td>
                      <td>&#26174;&#31034;&#25130;&#27490;&#26399;&#20026;</td>
                      <td> 
                        <input type=text name=time5 size=20>
                        &#12288;<font color=#FF0000>&#26684;&#24335;&#20026;yyyy-mm-dd hh:mm:ss&#25110;&#32773;yyyy-mm-dd</font></td>
                    </tr>
                </table>                </td>
              </tr>
              <tr> 
                <td align=right><font color=red>（7）</font>
                <input type=radio value=6 name=class></td>

                <td bgcolor=#ffffff colspan="2"> 
                  <table border="0">
                    <tr> 
                      <td> 
                      　</td>
                      <td>&#26174;&#31034;&#25968;&#19981;&#36229;&#36807;</td>
                      <td> 
                        <input type=text name=shows6 size=8>                      </td>
                    </tr>
                    <tr> 
                      <td></td>
                      <td>&#26174;&#31034;&#25130;&#27490;&#26399;&#20026;</td>
                      <td> 
                        <input type=text name=time6 size=20>
                        &#12288;<font color=#FF0000>&#26684;&#24335;&#20026;yyyy-mm-dd hh:mm:ss&#25110;&#32773;yyyy-mm-dd</font></td>
                    </tr>
                  </table>                </td>
              </tr>
              <tr> 
              <td align=right><font color=red>（8）</font>
                <input type=radio value=7 name=class></td>

                <td colspan="2"> 
                  <table border="0">
                    <tr> 
                      <td> 
                      　</td>
                      <td>&#28857;&#20987;&#25968;&#19981;&#36229;&#36807;</td>
                      <td> 
                        <input type=text name=clicks7 size=8>                      </td>
                    </tr>
                    <tr> 
                      <td></td>
                      <td>&#26174;&#31034;&#25968;&#19981;&#36229;&#36807;</td>
                      <td> 
                        <input type=text name=shows7 size=8>                      </td>
                    </tr>
                    <tr> 
                      <td></td>
                      <td>&#26174;&#31034;&#25130;&#27490;&#26399;&#20026;</td>
                      <td> 
                        <input type=text name=time7 size=20>
                        &#12288;<font color=#FF0000>&#26684;&#24335;&#20026;yyyy-mm-dd hh:mm:ss&#25110;&#32773;yyyy-mm-dd</font></td>
                    </tr>
                </table>                </td>
              </tr>
              <tr bgcolor=#ffffff> 
                <td colspan=3 align=center> 
                  <input type=submit value=&#25552;&#20132; name=B1>
                  <input type=reset value=&#37325;&#20889; name=B2>                </td>
              </tr>
            </form>
          </table>
 </body>
 </html>
<%End Sub
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	''''''''''''''广告条信息入库函数（包含修改、添加两种）'''
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Sub addrk()
	if KSCMS.G("job")="add" then
	
	dim getname,geturl,getgif,getplace,getwin,getxslei,RSObj,adssql,getclass,getclicks,getshows,gettime,getintro,gethei,getwid
	
	getname = Trim(Request("name"))
	geturl = Trim(Request("url"))
	getgif = Trim(Request("gif_url"))
	getplace =trim(Request("place"))
	getwin =trim(Request("window"))
	getxslei = trim( Request( "xslei" ))
	getclass=trim(Request("class"))
	getintro=trim(Request("intro"))
	getwid=trim(Request("wid"))
	gethei=trim(Request("hei"))
	
	if getxslei="txt" then
	getwid=0
	gethei=0
	end if
	
	if getclass=0 then
	getclicks=0
	getshows=0
	gettime=now()
	
	elseif getclass=1 then
	getclicks=trim(request("clicks1"))
	getshows=0
	gettime=now()
	
	elseif getclass=2 then
	getclicks=0
	getshows=trim(request("shows2"))
	gettime=now()
	
	elseif getclass=3 then
	getclicks=0
	getshows=0
	gettime=trim(request("time3"))
	
	elseif getclass=4 then
	getclicks=trim(request("clicks4"))
	getshows=trim(request("shows4"))
	gettime=now()
	
	elseif getclass=5 then
	getclicks=trim(request("clicks5"))
	getshows=0
	gettime=trim(request("time5"))
	
	elseif getclass=6 then
	getclicks=0
	getshows=trim(request("shows6"))
	gettime=trim(request("time6"))
	
	elseif getclass=7 then
	getclicks=trim(request("clicks7"))
	getshows=trim(request("shows7"))
	gettime=trim(request("time7"))
	end if
	
	
	set RSObj=server.createobject("adodb.recordset")
	if  trim(KSCMS.G("id"))="" then '如果是新增广告条
	adssql="select * from KS_Advertise"
	RSObj.open adssql,Conn,1,3
	RSObj.AddNew
	else                                                '如果是修改广告条
	adssql="select * from KS_Advertise where id="&int(KSCMS.G("id"))
	RSObj.open adssql,Conn,1,3
	end if
	RSObj("act") = 1
	RSObj("sitename") = getname
	RSObj("url") = geturl
	RSObj("gif_url") = getgif
	RSObj("place") = getplace
	RSObj("xslei") = getxslei
	RSObj("hei") = gethei
	RSObj("wid") = getwid
	RSObj("window") = getwin
	RSObj("class") = getclass
	RSObj("clicks") = getclicks
	RSObj("shows") = getshows
	RSObj("lasttime") = gettime
	RSObj("regtime") = Now()
	RSObj("time") = now()
	RSObj("intro")=getintro
	RSObj.update
	RSObj.close
	set RSObj=nothing
	Conn.close
	set Conn=nothing
	Response.Redirect "?job=suc&id="&KSCMS.G("id")
	end if
	End Sub
	'调出广告位下拉选项
	
	Sub Ggwxlxx(place) 'place 用于判断默认选项
	%>
	  <select size=1 name=place>
	<%
	Dim PRSObj:Set PRSObj=server.createobject("adodb.recordset")
	PRSObj.open "select * From KS_ADPlace",Conn,1,1
	do while not PRSObj.eof
	%>
	<option value="<%=PRSObj(0)%>" <% if PRSObj(0)=place then :Response.Write "selected":end if%>><%=PRSObj(1)%></option>
	 <%PRSObj.movenext
	   loop
	   PRSObj.close
	   Set PRSObj=nothing%>              
	  </select> 
	
	<%end sub

End Class
%>