BVB Source Codes

Jie Yang v0.6.3 article system Show GetLinkList.asp Source code

Return Download Jie Yang v0.6.3 article system: download GetLinkList.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="../../conn/conn.asp" -->
  3. <!--#include file="../admin_check.asp" -->
  4. <!--#include file="../../inc/commoncode.asp" -->
  5. <!--#include file="../../inc/commonfunction.asp" -->
  6. <!--#include file="createtemplate.asp" -->
  7. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  8. <html xmlns="http://www.w3.org/1999/xhtml">
  9. <head>
  10. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  11. <title>编辑友情连接函数标签--<%=sitenames%></title>
  12. <link href="../style/style.css" rel="stylesheet" type="text/css" />
  13. </head>
  14. <body>
  15. <%
  16. Action=trim(Request("Action"))
  17. select case Action
  18.         Case "Add"
  19.                 Call ShowData()
  20.         Case "Modify"
  21.                 Call ShowData()
  22.         Case "SaveData"
  23.                 Call SaveData()
  24. end select
  25. Sub ShowData()
  26. LabelID=trim(request.QueryString("LabelID"))
  27. If LabelID<>"" and IsNumeric(LabelID) Then
  28.         sql="select * from Article_Label where L_ID=" & LabelID
  29.         set rs=server.CreateObject ("ADODB.RecordSet")
  30.         rs.open sql,conn,1,1
  31.         if not rs.eof then
  32.                 LabelName=Rs("L_Name")
  33.                 LabelName=Replace(LabelName,"{$JY_","")
  34.                 LabelName=Replace(LabelName,"}","")
  35.                 LabelType=Rs("L_Type")
  36.                 LabelContent=Rs("L_Content")
  37.                 LabelContent=Replace(LabelContent,"{$GetLinkList(","")
  38.                 LabelContent=Replace(LabelContent,")}","")
  39.                 LabelContents=Split(LabelContent,",")
  40.                 LabelIntro=Rs("L_Intro")
  41.         end if
  42.         rs.Close
  43.         Set rs=Nothing
  44. imgs=LabelContents(0)
  45. num=LabelContents(1)
  46. order=LabelContents(2)
  47. picw=LabelContents(3)
  48. pich=LabelContents(4)
  49. row_nums=LabelContents(5)
  50. else
  51. LabelName=""
  52. picw=88
  53. pich=31
  54. LabelIntro="请输入标签介绍..."
  55. End If
  56. %>
  57. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  58.   <tr>
  59.     <td colspan="2" class="td28"><%if LabelID<>"" then:Response.Write("编辑"&LabelName):else:Response.Write("添加友情链接"):end if%>标签</td>
  60.   </tr>
  61.   <form action="?Action=SaveData&LabelID=<%=LabelID%>" method="post" name="labelform">
  62.   <tr>
  63.     <td align="right" bgcolor="#FFFFFF">标签名称:</td>
  64.     <td bgcolor="#FFFFFF">&nbsp;{$JY_
  65.       <input name="LabelName" type="text" size="15" value="<%=LabelName%>" />
  66.       }请输入中文汉字作为标签名称</td>
  67.   </tr>
  68.   <tr bgcolor="#FFFFFF">
  69.     <td width="22%" align="right">链接属性:</td>
  70.     <td width="78%">&nbsp;<input name="imgs" type="radio" class="checkbox" value="1" checked>
  71. 文字
  72.   <input name="imgs" type="radio" class="checkbox" value="2" <%if imgs=2 then Response.Write("checked")%>>
  73. 图片
  74. <input name="imgs" type="radio" class="checkbox" value="3" <%if imgs=3 then Response.Write("checked")%>>
  75. 文字+图片</td>
  76.   </tr>
  77.   <tr bgcolor="#FFFFFF">
  78.     <td align="right">链接个数:</td>
  79.     <td>&nbsp;<input name="num" type="text" size="4" value="<%=num%>"></td>
  80.   </tr>
  81.   <tr bgcolor="#FFFFFF">
  82.     <td align="right">图片宽度:</td>
  83.     <td>&nbsp;<input name="picw" type="text" size="6" value="<%=picw%>">
  84.       链接属性为文字时,此项不起作用.</td>
  85.   </tr>
  86.   <tr bgcolor="#FFFFFF">
  87.     <td align="right">图片高度:</td>
  88.     <td>&nbsp;<input name="pich" type="text" size="6" value="<%=pich%>">
  89. 链接属性为文字时,此项不起作用.</td>
  90.   </tr>  
  91.   <tr bgcolor="#FFFFFF">
  92.     <td align="right">排序方式:</td>
  93.     <td>&nbsp;<select name="order">
  94.                 <option value="L_order asc" <%if order="L_order asc" then Response.Write("selected")%>>按显示顺序排列</option>
  95.         <option value="L_id asc" <%if order="L_id asc" then Response.Write("selected")%>>按ID正序排列</option>
  96.                 <option value="L_id desc" <%if order="L_id desc" then Response.Write("selected")%>>按ID反序排列</option>          
  97.       </select>
  98.     </td>
  99.   </tr>
  100.   <tr bgcolor="#FFFFFF">
  101.     <td align="right">标签介绍:</td>
  102.     <td>&nbsp;<textarea name="LabelIntro" cols="60" rows="4"><%=LabelIntro%></textarea></td>
  103.   </tr>
  104.         <tr class="td30">
  105.     <td bgcolor="#FFFFFF">&nbsp;</td>
  106.     <td bgcolor="#FFFFFF">&nbsp;<input name="Submit" type="submit" class="submit1" value=" 提 交 " /></td>
  107.   </tr>
  108.   </form>
  109. </table>
  110. <%End Sub%>
  111. </body>
  112. </html>
  113. <%Sub SaveData()
  114.         LabelID=trim(request.QueryString("LabelID"))
  115.         LabelName=Trim(Request.Form("LabelName"))
  116.         If LabelName="" Then
  117.                 Response.Write ("<script>{alert('请输入标签名称!');history.back();}</script>")
  118.                 Response.End
  119.         End If
  120.         LabelName=Replace(LabelName,LabelName,"{$JY_"&LabelName&"}")
  121.         '判断默认方案下是否有同名的标签名称存在
  122.         if LabelID="" then
  123.                 sql="select L_name from Article_label where L_name='"&LabelName&"'"
  124.                 set rs=Server.CreateObject("ADODB.RecordSet")
  125.                 rs.open sql,conn,1,1
  126.                 if not rs.eof then
  127.                         Response.Write ("<script>{alert('同名的标签名称已经存在!');history.back();}</script>")
  128.                         Response.End
  129.                 end if
  130.                 rs.close
  131.                 set rs=nothing
  132.         end if
  133.        
  134.         imgs=Trim(Request.Form("imgs"))
  135.         num=Trim(Request.Form("num"))
  136.         if num="" then
  137.                 num=20
  138.         end if
  139.         picw=Trim(Request.Form("picw"))
  140.         pich=Trim(Request.Form("pich"))
  141.        
  142.         order=Trim(Request.Form("order"))
  143.         target=Trim(Request.Form("target"))
  144.         LabelContent="{$GetLinkList("&imgs&","&num&","&order&","&picw&","&pich&",0)}"
  145.         LabelIntro=Trim(Request.Form("LabelIntro"))
  146.         Labelorder=Trim(Request.Form("Labelorder"))
  147.         If Labelorder="" then
  148.                 Labelorder=0
  149.         end if
  150.  
  151.         set rs=Server.CreateObject("ADODB.RecordSet")
  152.         if LabelID<>"" and IsNumeric(LabelID) then
  153.         sql="select * from Article_label where L_id=" & LabelID
  154.         else
  155.         sql="select * from Article_label"
  156.         end if
  157.         rs.open sql,conn,1,3
  158.         if LabelID="" then
  159.         rs.AddNew
  160.         rs("L_type")=2
  161.         end if
  162.         rs("L_name")=LabelName
  163.         rs("L_content")=LabelContent
  164.         rs("L_intro")=LabelIntro
  165.         rs("L_edittime")=now()
  166.         rs.update
  167.         rs.close
  168.         set rs=nothing
  169.         Call CreateTemplate()
  170.         Response.Write ("<script>{alert('操作成功!');window.opener.location.reload();window.close();}</script>")
  171.         Response.End
  172. end sub
  173. %>
  174.  
downloadGetLinkList.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top