link_add.asp

Upload User: gufengji9
Upload Date: 2007-04-27
Package Size: 769k
Code Size: 2k
Category: Applications
Development Platform: PHP
  1. <!-- #include file="../data/CONN2.asp" -->
  2. <!-- #include file="pass.asp" -->
  3. <!-- #include file="../inc/fso.asp" -->
  4. <%Dim txt
  5. txt = prtFiles("../inc","links.js","")
  6. txt = Replace(txt,"//made in gamvan  今晚制造","")
  7. Sub actUpdate(xiangxi)
  8. xiangxi = replace(xiangxi,vbcrlf,vbNewLine)
  9. xiangxi = xiangxi &  "//made in gamvan  今晚制造"
  10. Call files("../inc","links.js","",xiangxi)
  11. Response.write(prtCen("操作成功!"))
  12. Call rPage(2,"")
  13. Response.End()
  14. end Sub
  15. if Request.Form("action") = "确定" then
  16. Call actUpdate(Request.Form("xiangxi"))
  17. end if
  18. %>
  19. <!--#include file="css.asp"-->
  20. <body bgcolor=<%=crs(0)%>>
  21. <form name="Gforms" method="post" action="">
  22.     <table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FF9900">
  23.       <tr align="center" bgcolor="#FFF5EC"> 
  24.         <td> <strong>友情连接请使用标准的JS或javascript语句书写</strong><br>          <textarea rows="15" cols="80" name="xiangxi"><% =Replace(txt,"&","&amp;") %></textarea><br>
  25. <span onclick="javascript:document.Gforms.xiangxi.rows+=15" title="点击向下拉长" style="cursor:hand">
  26. <img src="../imgs/loadList2.gif" border="0"></span>
  27. <span onclick="javascript:if(document.Gforms.xiangxi.rows != 15){document.Gforms.xiangxi.rows-=15}else{document.Gforms.xiangxi.rows=15};" title="点击向下拉长" style="cursor:hand">
  28. <img src="../imgs/loadList1.gif" border="0"></span>       </td>
  29.       </tr>
  30.       <tr align="center" bgcolor="#FFF5EC"> 
  31.         <td> 
  32.         <input type="submit" name="action" value="确定">        </td>
  33.       </tr>
  34.     </table>
  35. </form>