BVB Source Codes

Seven VIP jubilee dance CMS management system Show Upgrade.asp Source code

Return Download Seven VIP jubilee dance CMS management system: download Upgrade.asp Source code - Download Seven VIP jubilee dance CMS management system Source code - Type:.asp
  1. <!--#include file="Conn.asp"-->
  2. <!--#include file="Inc/Inc.asp"-->
  3. <%
  4. '=====================================================
  5. ' 描述: 七禧舞曲管理程序数据导入系统
  6. ' 作者: 花心萝卜(www.7xiwl.com)
  7. ' 日期:2009年05月01日
  8. ' 版权: 本作品由七禧网络开发,但是请勿移除版权信息
  9. '=====================================================
  10. %>
  11. <html>
  12. <head>
  13. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  14. <title>七禧舞曲程序各个版本数据导入系统</title>
  15. <style type="text/css">
  16. * {font-size: 12px;font-family: "宋体";}
  17. body {font-size: 12px;line-height: 1.5;font-family: "宋体";}
  18. form,h1,h2,h3,ul,ol,div {margin: 0; padding:0;}
  19. td,th,div {word-break:break-all;word-wrap:break-word;}
  20. b,strong {color:#666600;}
  21. li,dd {list-style-type:none; margin:0px; padding:0px;}
  22. input[type=button] {background-color: #F1F8B4;}
  23. h1 {color:#171B16; font-size:130%; font-weight:bold;}
  24. h2 {color:#171B16; font-size:115%; font-weight:bold;}
  25. h3 {color:#171B16; font-size:100%; font-weight:bold;}
  26. a:link {font-size: 9pt; color: #000000; text-decoration: none; font-family: ""宋体"";}
  27. a:visited {font-size: 9pt; color: #000000; text-decoration: none; font-family: ""宋体"";}
  28. a:hover {color: red; font-family: ""宋体"";}
  29. a img {border-style:none;}
  30. b a {color:#666600;}
  31. strong a {color:#666600;}
  32. a b {color:#666600;}
  33. a strong {color:#666600;}
  34. input {border: 1px solid #ababab;}
  35. .np {border:none;}
  36. .linerow{border-bottom: 1px solid #ACACAC;}
  37. .coolbg {
  38.   border-right: 1px solid #ACACAC;
  39.   border-bottom: 1px solid #ACACAC;
  40.   background-color: #F1F8B4;
  41.   padding:2px;
  42.   padding-right:5px;
  43.   padding-left:5px;
  44.   background: url(allbtbg2.gif) #EFF7D0;
  45.   cursor:pointer;
  46. }
  47. </style>
  48. </head>
  49. <body leftmargin='8' topmargin='8'>
  50. <%
  51. action=request("do")
  52. If action="importa" Then
  53.     Call Import_A
  54. ElseIf action="addpic" Then
  55.  
  56. Else
  57.     Call Import_Main
  58. End If
  59.  
  60. Sub Import_Main
  61. %>
  62. <table width="600" border="0" cellpadding="3" cellspacing="1" bgcolor="#D1DDAA" align="center">
  63.   <form name="form1" action="" method="get" target='stafrm'>
  64.   <input type="hidden" name="do" value="importa" />
  65.     <tr>
  66.       <td height="28" colspan="2">
  67.         <table width="98%" border="0" cellpadding="0" cellspacing="0">
  68.           <tr>
  69.             <td width="70%" height="18"><strong>七禧舞曲程序数据导入系统:</strong></td>
  70.           </tr>
  71.         </table>
  72.       </td>
  73.     </tr>
  74.     <tr bgcolor="#FFFFFF">
  75.       <td width="25%" height="20" align="right">旧版数据库地址:</td>
  76.       <td width="75%" height="20"><input name="MdbA" type="text" id="MdbA" value="Data.mdb" size="30"> 数据库名称不能带符号</td>
  77.     </tr>
  78.     <tr bgcolor="#FFFFFF">
  79.       <td align="right">2.0 数据库地址:</td>
  80.       <td><input name="MdbB" type="text" id="MdbB" value="<%=db%>" size="30" disabled></td>
  81.     </tr>
  82.     <tr bgcolor="#FFFFFF">
  83.       <td align="right">选择导入版本:</td>
  84.       <td>
  85.                 <input type="radio" name="MdbC" value="0" disabled>&nbsp;1.0 导入 2.0
  86.                 <input type="radio" name="MdbC" value="1" disabled>&nbsp;1.1 导入 2.0
  87.                 <input type="radio" name="MdbC" value="2" checked>&nbsp;1.2 导入 2.0
  88.       </td>
  89.     </tr>
  90.     <tr bgcolor="#FFFFFF">
  91.       <td align="right">选择导入内容:</td>
  92.       <td>
  93.                 <input type="radio" name="MdbD" value="0" checked>&nbsp;舞曲
  94.                 <input type="radio" name="MdbD" value="1">&nbsp;会员
  95.                 <input type="radio" name="MdbD" value="2">&nbsp;专辑
  96.                 <input type="radio" name="MdbD" value="3">&nbsp;栏目
  97.                 <input type="radio" name="MdbD" value="4">&nbsp;服务器
  98.       </td>
  99.     </tr>
  100.     <tr>
  101.       <td height="20" colspan="2" bgcolor="#FAFAF1" align="center">
  102.         <input name="b112" type="button" class="coolbg np" value="开始导入" onClick="document.form1.submit();" style="width:100px">
  103.       </td>
  104.     </tr>
  105.   </form>
  106.   <tr bgcolor="#E6F3CD">
  107.     <td height="20" colspan="2"> <table width="100%">
  108.         <tr>
  109.           <td width="74%">进行状态:</td>
  110.           <td width="26%" align="right"></td>
  111.         </tr>
  112.       </table></td>
  113.   </tr>
  114.   <tr bgcolor="#FFFFFF">
  115.     <td colspan="2" id="mtd">
  116.        <div id='mdv' style='width:100%;height:150px;'>
  117.         <iframe name="stafrm" frameborder="0" id="stafrm" width="100%" height="100%"></iframe>
  118.        </div>
  119.     </td>
  120.   </tr>
  121.   <tr bgcolor="#EEF4EA">
  122.     <td height="36" colspan="2">
  123.       <table width="100%">
  124.         <tr>
  125.           <td align="center">程序开发:<a href='http://www.7xiwl.com' target='_blank'>七禧网络</a> 作者:花心萝卜</td>
  126.         </tr>
  127.       </table>
  128.     </td>
  129.   </tr>
  130. </table>
  131. <%End Sub
  132.  
  133. Sub Import_A
  134. MdbA=request("MdbA")
  135. MdbB=request("MdbB")
  136. MdbC=request("MdbC")
  137. MdbD=request("MdbD")
  138. page=int(request.QueryString ("page"))
  139. if page<=0 or page="" then page=1'初始化分页参数
  140. %>
  141. <table align="center" width="100%" border="0" cellspacing="4" cellpadding="4">
  142.         <tr>
  143.                 <td align="center">数据正在导入中,已完成:<span id="iii" style="color:green">0</span> / <span id="mmm" style="color:red">0</span></td>
  144.         </tr>
  145.         <tr>
  146.                 <td>
  147.                         <table style="border-collapse:collapse;" border="1" bordercolor="#666666" cellpadding="0" cellspacing="0" width="560" align="center" bgcolor="#eeeeee">
  148.  
  149.                                 <tr>
  150.                                         <td><div style="WORD-WRAP: break-word; width:100%;"><img src="images/bg_make_load.gif" id="percentdone" width="0%" height="11"/></div></td>
  151.                                 </tr>
  152.  
  153.                         </table>
  154.  
  155.                 </td>
  156.         </tr>
  157.         <tr>
  158.                 <td align="center"><span id="msg" style="color:red">正在导入第 <%=page%> 页的数据,请勿刷新本页</span></td>
  159.         </tr>
  160. </table>
  161. <%
  162.     Dim connexport,connstrexport
  163.     on error resume next
  164.     connstrexport="DBQ="+server.mappath(MdbA)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  165.     set connexport=server.createobject("ADODB.CONNECTION")
  166.     connexport.open connstrexport
  167.     If Err Then
  168.     Err.Clear
  169.     Response.Write "<script>document.getElementById(""msg"").innerHTML=""旧版数据库地址错误"";</script>"&VbCrLf
  170.     Response.End
  171.     Set connexport = Nothing
  172.     End If
  173.     If MdbD=0 Then
  174.                         i=0
  175.                         Set RsAspDj = Server.CreateObject("adodb.recordset")
  176.                         sql = "select * from Ylmv_Dj"
  177.                         RsAspDj.Open sql, connexport, 1, 1
  178.                         If Not(RsAspDj.bof And RsAspDj.EOF) Then
  179.                                         RsAspDj.pagesize=1000        '每页数据
  180.                                         RsAspDj.AbsolutePage=page
  181.                                         m=RsAspDj.recordcount     '总记录
  182.                                         n=RsAspDj.PageCount       '总页数
  183.                                         z=RsAspDj.pagesize        '每页数量
  184.                                         do while not RsAspDj.eof  and i<RsAspDj.pagesize
  185.                                         i=i+1
  186.                                         Call Ylmv_Asp_Dj(RsAspDj("Dj_Id"),RsAspDj("DjCat_Id"),RsAspDj("SpecialID"),RsAspDj("Dj_Name"),RsAspDj("Hits"),RsAspDj("DownHits"),RsAspDj("BoxHits"),0,0,0,0,0,RsAspDj("Dj_Date"),RsAspDj("Dj_Url"),RsAspDj("Mp3_Url"),RsAspDj("Path"),RsAspDj("Deleted"),RsAspDj("Dj_Pic"),RsAspDj("Dj_User"),RsAspDj("TjUser"),RsAspDj("Dj_Word"),RsAspDj("Dj_Desc"),RsAspDj("IsBest"),RsAspDj("Error"),RsAspDj("Passed"),RsAspDj("IsTop"),RsAspDj("Points"),RsAspDj("Grade"),RsAspDj("Dj_Lrc"),RsAspDj("Font"),RsAspDj("Music"))
  187.                                         percentdone=FormatPercent(i/z)
  188.                                         if percentdone<"0" then
  189.                                           percentdone=Replace(percentdone,percentdone,"0"&percentdone)
  190.                                         else
  191.                                           percentdone=percentdone
  192.                                         end if
  193.                                         Response.Write "<script>document.getElementById(""iii"").innerHTML="""&i&""";document.getElementById(""mmm"").innerHTML="""&z&""";document.getElementById(""percentdone"").style.width="""&percentdone&""";</script>"&VbCrLf
  194.                                         Response.Flush()
  195.                                         RsAspDj.movenext
  196.                                         loop
  197.                                         if page>n then
  198.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML="""&m&" 条数据已全部导入"";</script>"&VbCrLf
  199.                                         else
  200.                                         Response.Write "<meta http-equiv=""refresh"" content=""0;url='?do="&request("do")&"&MdbA="&request("MdbA")&"&MdbB="&request("MdbB")&"&MdbC="&request("MdbC")&"&MdbD="&request("MdbD")&"&page="&page+1&"'"">"
  201.                                         end if
  202.                         Else
  203.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML=""没有数据"";</script>"&VbCrLf
  204.                         End If
  205.                         RsAspDj.Close                              
  206.                         Set RsAspDj=nothing
  207.     ElseIf MdbD=1 Then
  208.                         i=0
  209.                         Set RsAspUser = Server.CreateObject("adodb.recordset")
  210.                         sql = "select * from Ylmv_User"
  211.                         RsAspUser.Open sql, connexport, 1, 1
  212.                         If Not(RsAspUser.bof And RsAspUser.EOF) Then
  213.                                         RsAspUser.pagesize=1000        '每页数据
  214.                                         RsAspUser.AbsolutePage=page
  215.                                         m=RsAspUser.recordcount     '总记录
  216.                                         n=RsAspUser.PageCount       '总页数
  217.                                         z=RsAspUser.pagesize        '每页数量
  218.                                         do while not RsAspUser.eof  and i<RsAspUser.pagesize
  219.                                         i=i+1
  220.                                         Call Ylmv_Asp_User(RsAspUser("UserID"),RsAspUser("UserName"),RsAspUser("Password"),RsAspUser("Question"),RsAspUser("Answer"),RsAspUser("Email"),RsAspUser("Sex"),RsAspUser("RegDate"),RsAspUser("LastLoginIP"),RsAspUser("LoginTimes"),RsAspUser("Homepage"),RsAspUser("QQ"),RsAspUser("LastLoginTime"),RsAspUser("UserGrade"),RsAspUser("userlock"),RsAspUser("points"),RsAspUser("UserPhoto"),RsAspUser("UserSign"),RsAspUser("userfriend"),RsAspUser("hidden"),RsAspUser("whe"),RsAspUser("birthday"),RsAspUser("phone"),RsAspUser("address"),RsAspUser("usercollect"),RsAspUser("userspecial"),RsAspUser("vipindate"),RsAspUser("vipenddate"),RsAspUser("Hits"),RsAspUser("isbest"),RsAspUser("Money"))
  221.                                         percentdone=FormatPercent(i/z)
  222.                                         if percentdone<"0" then
  223.                                           percentdone=Replace(percentdone,percentdone,"0"&percentdone)
  224.                                         else
  225.                                           percentdone=percentdone
  226.                                         end if
  227.                                         Response.Write "<script>document.getElementById(""iii"").innerHTML="""&i&""";document.getElementById(""mmm"").innerHTML="""&z&""";document.getElementById(""percentdone"").style.width="""&percentdone&""";</script>"&VbCrLf
  228.                                         Response.Flush()
  229.                                         RsAspUser.movenext
  230.                                         loop
  231.                                         if page>n then
  232.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML="""&m&" 条数据已全部导入"";</script>"&VbCrLf
  233.                                         else
  234.                                         Response.Write "<meta http-equiv=""refresh"" content=""0;url='?do="&request("do")&"&MdbA="&request("MdbA")&"&MdbB="&request("MdbB")&"&MdbC="&request("MdbC")&"&MdbD="&request("MdbD")&"&page="&page+1&"'"">"
  235.                                         end if
  236.                         Else
  237.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML=""没有数据"";</script>"&VbCrLf
  238.                         End If
  239.                         RsAspUser.Close                              
  240.                         Set RsAspUser=nothing
  241.     ElseIf MdbD=2 Then
  242.                         i=0
  243.                         Set RsAspSpecial = Server.CreateObject("adodb.recordset")
  244.                         sql = "select * from Ylmv_DjSpecial"
  245.                         RsAspSpecial.Open sql, connexport, 1, 1
  246.                         If Not(RsAspSpecial.bof And RsAspSpecial.EOF) Then
  247.                                         RsAspSpecial.pagesize=1000        '每页数据
  248.                                         RsAspSpecial.AbsolutePage=page
  249.                                         m=RsAspSpecial.recordcount     '总记录
  250.                                         n=RsAspSpecial.PageCount       '总页数
  251.                                         z=RsAspSpecial.pagesize        '每页数量
  252.                                         do while not RsAspSpecial.eof  and i<RsAspSpecial.pagesize
  253.                                         i=i+1
  254.                                         Call Ylmv_Asp_DJSpecial(RsAspSpecial("SpecialID"),RsAspSpecial("ClassId"),RsAspSpecial("Name"),RsAspSpecial("ZjUser"),RsAspSpecial("Pic"),RsAspSpecial("GongSi"),RsAspSpecial("YuYan"),RsAspSpecial("Intro"),RsAspSpecial("DateAndTime"),RsAspSpecial("Hits"),RsAspSpecial("IsBest"),RsAspSpecial("IsTop"),RsAspSpecial("passed"))
  255.                                         percentdone=FormatPercent(i/z)
  256.                                         if percentdone<"0" then
  257.                                           percentdone=Replace(percentdone,percentdone,"0"&percentdone)
  258.                                         else
  259.                                           percentdone=percentdone
  260.                                         end if
  261.                                         Response.Write "<script>document.getElementById(""iii"").innerHTML="""&i&""";document.getElementById(""mmm"").innerHTML="""&z&""";document.getElementById(""percentdone"").style.width="""&percentdone&""";</script>"&VbCrLf
  262.                                         Response.Flush()
  263.                                         RsAspSpecial.movenext
  264.                                         loop
  265.                                         if page>n then
  266.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML="""&m&" 条数据已全部导入"";</script>"&VbCrLf
  267.                                         else
  268.                                         Response.Write "<meta http-equiv=""refresh"" content=""0;url='?do="&request("do")&"&MdbA="&request("MdbA")&"&MdbB="&request("MdbB")&"&MdbC="&request("MdbC")&"&MdbD="&request("MdbD")&"&page="&page+1&"'"">"
  269.                                         end if
  270.                         Else
  271.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML=""没有数据"";</script>"&VbCrLf
  272.                         End If
  273.                         RsAspSpecial.Close                              
  274.                         Set RsAspSpecial=nothing
  275.     ElseIf MdbD=3 Then
  276.                         i=0
  277.                         Set RsAspDjCat = Server.CreateObject("adodb.recordset")
  278.                         sql = "select * from Ylmv_DjCat"
  279.                         RsAspDjCat.Open sql, connexport, 1, 1
  280.                         If Not(RsAspDjCat.bof And RsAspDjCat.EOF) Then
  281.                                         RsAspDjCat.pagesize=1000        '每页数据
  282.                                         RsAspDjCat.AbsolutePage=page
  283.                                         m=RsAspDjCat.recordcount     '总记录
  284.                                         n=RsAspDjCat.PageCount       '总页数
  285.                                         z=RsAspDjCat.pagesize        '每页数量
  286.                                         do while not RsAspDjCat.eof  and i<RsAspDjCat.pagesize
  287.                                         i=i+1
  288.                                         Call Ylmv_Asp_DjCat(RsAspDjCat("DjCat_Id"),RsAspDjCat("DjCat_Name"),RsAspDjCat("Idd"),RsAspDjCat("OpenType"),RsAspDjCat("ClassDir"),RsAspDjCat("ClassUrl"),RsAspDjCat("ClassOrder"))
  289.                                         percentdone=FormatPercent(i/z)
  290.                                         if percentdone<"0" then
  291.                                           percentdone=Replace(percentdone,percentdone,"0"&percentdone)
  292.                                         else
  293.                                           percentdone=percentdone
  294.                                         end if
  295.                                         Response.Write "<script>document.getElementById(""iii"").innerHTML="""&i&""";document.getElementById(""mmm"").innerHTML="""&z&""";document.getElementById(""percentdone"").style.width="""&percentdone&""";</script>"&VbCrLf
  296.                                         Response.Flush()
  297.                                         RsAspDjCat.movenext
  298.                                         loop
  299.                                         if page>n then
  300.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML="""&m&" 条数据已全部导入"";</script>"&VbCrLf
  301.                                         else
  302.                                         Response.Write "<meta http-equiv=""refresh"" content=""0;url='?do="&request("do")&"&MdbA="&request("MdbA")&"&MdbB="&request("MdbB")&"&MdbC="&request("MdbC")&"&MdbD="&request("MdbD")&"&page="&page+1&"'"">"
  303.                                         end if
  304.                         Else
  305.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML=""没有数据"";</script>"&VbCrLf
  306.                         End If
  307.                         RsAspDjCat.Close                              
  308.                         Set RsAspDjCat=nothing
  309.     ElseIf MdbD=4 Then
  310.                         i=0
  311.                         Set RsAspDjServer = Server.CreateObject("adodb.recordset")
  312.                         sql = "select * from Ylmv_DjServer"
  313.                         RsAspDjServer.Open sql, connexport, 1, 1
  314.                         If Not(RsAspDjServer.bof And RsAspDjServer.EOF) Then
  315.                                         RsAspDjServer.pagesize=1000        '每页数据
  316.                                         RsAspDjServer.AbsolutePage=page
  317.                                         m=RsAspDjServer.recordcount     '总记录
  318.                                         n=RsAspDjServer.PageCount       '总页数
  319.                                         z=RsAspDjServer.pagesize        '每页数量
  320.                                         do while not RsAspDjServer.eof  and i<RsAspDjServer.pagesize
  321.                                         i=i+1
  322.                                         Call Ylmv_Asp_DjServer(RsAspDjServer("DjServerId"),RsAspDjServer("DjServerUrl"),RsAspDjServer("DjServerName"),RsAspDjServer("DjServerDown"),RsAspDjServer("DjServerYes"))
  323.                                         percentdone=FormatPercent(i/z)
  324.                                         if percentdone<"0" then
  325.                                           percentdone=Replace(percentdone,percentdone,"0"&percentdone)
  326.                                         else
  327.                                           percentdone=percentdone
  328.                                         end if
  329.                                         Response.Write "<script>document.getElementById(""iii"").innerHTML="""&i&""";document.getElementById(""mmm"").innerHTML="""&z&""";document.getElementById(""percentdone"").style.width="""&percentdone&""";</script>"&VbCrLf
  330.                                         Response.Flush()
  331.                                         RsAspDjServer.movenext
  332.                                         loop
  333.                                         if page>n then
  334.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML="""&m&" 条数据已全部导入"";</script>"&VbCrLf
  335.                                         else
  336.                                         Response.Write "<meta http-equiv=""refresh"" content=""0;url='?do="&request("do")&"&MdbA="&request("MdbA")&"&MdbB="&request("MdbB")&"&MdbC="&request("MdbC")&"&MdbD="&request("MdbD")&"&page="&page+1&"'"">"
  337.                                         end if
  338.                         Else
  339.                                         Response.Write "<script>document.getElementById(""msg"").innerHTML=""没有数据"";</script>"&VbCrLf
  340.                         End If
  341.                         RsAspDjServer.Close                              
  342.                         Set RsAspDjServer=nothing
  343.     End If
  344. %>
  345. <%End Sub%>
  346. </body>
  347. </html>
  348.  
  349. <%
  350. Sub Ylmv_Asp_Dj(Dj_Id,DjCat_Id,SpecialID,Dj_Name,Hits,DownHits,BoxHits,uHits,dHits,DayHits,WeekHits,MonthHits,Dj_Date,Dj_Url,Mp3_Url,Path,Deleted,Dj_Pic,Dj_User,TjUser,Dj_Word,Dj_Desc,IsBest,Error,Passed,IsTop,Points,Grade,Dj_Lrc,Font,Music)
  351.     dim RsDj
  352.     set RsDj=server.createobject("adodb.recordset")
  353.     RsDj.open "select * from Ylmv_Dj where Dj_Id is null",conn,1,3
  354.     RsDj.addnew
  355.     RsDj("Dj_Id")=Dj_Id
  356.     RsDj("DjCat_Id")=DjCat_Id
  357.     RsDj("SpecialID")=SpecialID
  358.     RsDj("Dj_Name")=Dj_Name
  359.     RsDj("Hits")=Hits
  360.     RsDj("DownHits")=DownHits
  361.     RsDj("BoxHits")=BoxHits
  362.     RsDj("uHits")=uHits
  363.     RsDj("dHits")=dHits
  364.     RsDj("DayHits")=DayHits
  365.     RsDj("WeekHits")=WeekHits
  366.     RsDj("MonthHits")=MonthHits
  367.     RsDj("Dj_Date")=Dj_Date
  368.     RsDj("Dj_Url")=Dj_Url
  369.     RsDj("Mp3_Url")=Mp3_Url
  370.     RsDj("Path")=Path
  371.     RsDj("Deleted")=Deleted
  372.     RsDj("Dj_Pic")="http://"
  373.     RsDj("Dj_User")=Dj_User
  374.     RsDj("TjUser")=TjUser
  375.     RsDj("Dj_Word")=Dj_Word
  376.     RsDj("Dj_Desc")=Dj_Desc
  377.     RsDj("IsBest")=IsBest
  378.     RsDj("Error")=Error
  379.     RsDj("Passed")=Passed
  380.     RsDj("IsTop")=IsTop
  381.     RsDj("Points")=Points
  382.     RsDj("Grade")=Grade
  383.     RsDj("Dj_Lrc")=Dj_Lrc
  384.     RsDj("Font")=Font
  385.     RsDj("Music")=Music
  386.     RsDj("SkinID")=0
  387.     RsDj.update
  388.     RsDj.close
  389.     set RsDj=nothing
  390. End Sub
  391.  
  392. Sub Ylmv_Asp_User(UserID,UserName,Password,Question,Answer,Email,Sex,RegDate,LastLoginIP,LoginTimes,Homepage,QQ,LastLoginTime,UserGrade,userlock,points,UserPhoto,UserSign,userfriend,hidden,whe,birthday,phone,address,usercollect,userspecial,vipindate,vipenddate,Hits,isbest,Money)
  393.     dim RsUser
  394.     set RsUser=server.createobject("adodb.recordset")
  395.     RsUser.open "select * from Ylmv_User where UserID is null",conn,1,3
  396.     RsUser.addnew
  397.     RsUser("UserID")=UserID
  398.     RsUser("UserName")=UserName
  399.     RsUser("NiCheng")=UserName
  400.     RsUser("Password")=Password
  401.     RsUser("Question")=Question
  402.     RsUser("Answer")=Answer
  403.     RsUser("Email")=Email
  404.     RsUser("Sex")=Sex
  405.     RsUser("RegDate")=RegDate
  406.     RsUser("LastLoginIP")=LastLoginIP
  407.     RsUser("LoginTimes")=LoginTimes
  408.     RsUser("Homepage")=Homepage
  409.     RsUser("QQ")=QQ
  410.     RsUser("LastLoginTime")=LastLoginTime
  411.     RsUser("UserGrade")=UserGrade
  412.     RsUser("userlock")=userlock
  413.     RsUser("points")=points
  414.     RsUser("UserPhoto")=UserPhoto
  415.     RsUser("UserSign")=UserSign
  416.     RsUser("userfriend")=userfriend
  417.     RsUser("hidden")=hidden
  418.     RsUser("whe")=whe
  419.     RsUser("birthday")=birthday
  420.     RsUser("phone")=phone
  421.     RsUser("address")=address
  422.     RsUser("usercollect")=usercollect
  423.     RsUser("userspecial")=userspecial
  424.     RsUser("vipindate")=vipindate
  425.     RsUser("vipenddate")=vipenddate
  426.     RsUser("Hits")=Hits
  427.     RsUser("isbest")=isbest
  428.     RsUser("Money")=Money
  429.     RsUser("weblock")=0
  430.     RsUser.update
  431.     RsUser.close
  432.     set RsUser=nothing
  433. End Sub
  434.  
  435. Sub Ylmv_Asp_DjSpecial(SpecialID,ClassId,Name,ZjUser,Pic,GongSi,YuYan,Intro,DateAndTime,Hits,IsBest,IsTop,passed)
  436.     dim RsSpecial
  437.     set RsSpecial=server.createobject("adodb.recordset")
  438.     RsSpecial.open "select * from Ylmv_DjSpecial where SpecialID is null",conn,1,3
  439.     RsSpecial.addnew
  440.     RsSpecial("SpecialID")=SpecialID
  441.     RsSpecial("ClassId")=ClassId
  442.     RsSpecial("Name")=Name
  443.     RsSpecial("ZjUser")=ZjUser
  444.     RsSpecial("Pic")=Pic
  445.     RsSpecial("GongSi")=GongSi
  446.     RsSpecial("YuYan")=YuYan
  447.     RsSpecial("Intro")=Intro
  448.     RsSpecial("DateAndTime")=DateAndTime
  449.     RsSpecial("Hits")=Hits
  450.     RsSpecial("IsBest")=IsBest
  451.     RsSpecial("IsTop")=IsTop
  452.     RsSpecial("passed")=passed
  453.     RsSpecial.update
  454.     RsSpecial.close
  455.     set RsSpecial=nothing
  456. End Sub
  457.  
  458. Sub Ylmv_Asp_DjCat(DjCat_Id,DjCat_Name,Idd,OpenType,ClassDir,ClassUrl,ClassOrder)
  459.     dim RsDjCat
  460.     set RsDjCat=server.createobject("adodb.recordset")
  461.     RsDjCat.open "select * from Ylmv_DjCat where DjCat_Id is null",conn,1,3
  462.     RsDjCat.addnew
  463.     RsDjCat("DjCat_Id")=DjCat_Id
  464.     RsDjCat("DjCat_Name")=DjCat_Name
  465.     RsDjCat("Idd")=Idd
  466.     RsDjCat("OpenType")=OpenType
  467.     RsDjCat("ClassDir")=ClassDir
  468.     if ClassUrl<>"" then
  469.     RsDjCat("ClassUrl")=ClassUrl
  470.     else
  471.     RsDjCat("ClassUrl")="html"
  472.     end if
  473.     RsDjCat("ClassUrl")=ClassUrl
  474.     RsDjCat("ClassOrder")=ClassOrder
  475.     if ClassDir="0" then
  476.     RsDjCat("ClassUrl")="html"
  477.     RsDjCat("ClassAbc")=abc(DjCat_Name)
  478.     else
  479.     RsDjCat("ClassUrl")=ClassUrl
  480.     end if
  481.     RsDjCat("ClassPath")="index{$分页编号}"
  482.     RsDjCat("SkinID")=0
  483.     RsDjCat.update
  484.     RsDjCat.close
  485.     set RsDjCat=nothing
  486. End Sub
  487.  
  488. Sub Ylmv_Asp_DjServer(DjServerId,DjServerUrl,DjServerName,DjServerDown,DjServerYes)
  489.     dim RsServer
  490.     set RsServer=server.createobject("adodb.recordset")
  491.     RsServer.open "select * from Ylmv_DjServer where DjServerId is null",conn,1,3
  492.     RsServer.addnew
  493.     RsServer("DjServerId")=DjServerId
  494.     RsServer("DjServerUrl")=DjServerUrl
  495.     RsServer("DjServerName")=DjServerName
  496.     RsServer("DjServerDown")=DjServerDown
  497.     RsServer("DjServerYes")=DjServerYes
  498.     RsServer.update
  499.     RsServer.close
  500.     set RsServer=nothing
  501. End Sub
  502. %>
  503.  
downloadUpgrade.asp Source code - Download Seven VIP jubilee dance CMS management system Source code
Related Source Codes/Software:
Jie Yang v0.6.3 article system - System functions: 1, the system settings A confi... 2016-09-21
Download IT mop stand (with site to download the database ACC) - Background management: http://www.xxx.com/admin/ad... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
PeterCMS3 v3.2 - PeterCMS is the original sirenCMS and a series of ... 2016-09-21
Subdomain hosting edition v1.9 s taobao, pat - The background site admin 2016-09-21
126oo CMS film station system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Copy the site source code v2.01 - It is ok to cover the folder % S 2016-09-21
ETsale simple product sales management system V3.0 formal version - ETsale3.0 is developed by PHP+MySQL+Smarty+jQuery ... 2016-09-21
Mobile - shop. Tk all source code - Admin admin.php no database. The total data Modi... 2016-09-22
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