<% server.scripttimeout = 99999id = request ("tid") webname = request ( "webName") language = request ( "language") userid = Request ( "userid") session ( "username") = useridsession.timeout = 2 * 60sql = "select * from LanMu where lmName <> 'Home 'Order By ID "RS.Open SQL, CONN, 1, 1%>
/ * function checkall () {//document.write (num); for (var i = 1; i IF (length == 0) {return;}}} {document.form1.lm.checked = document.form1.chkall.checked;} if (length> 1) {for (var i = 0; I } * / Self-service station second step - please Select the website section > column name Settings Navigation <% if not = r e e = = rs.Recordcount%> "value =" <% = rs ("lmname")%> "> "> Name = "ftname <% = m%>" value = "<% = rs (" lmnameft ")%>> " & I & "" Next%> "> < / TR> <% m = m 1 rs.movenext loop 'rs.close end if%> TRIM ("UserID")) 'Checkall = Trim (Request ("isll")' response.write checkall 'response.end () showcover = "false" WebName = Request ("WebName") WebName = WebName & " There is currently no title | There is currently no title "" Session ("Language") = Request ("LG") IF Request ("lg") = "CN" THENTANGUAGE = "CN | FT | EN" Elseif Request ("LG ") =" ft "THENGUAGE =" FT | CN | EN "Elseif Request (" lg ") =" en "THEN TLANGUAGE =" EN | CN | FT "end if sql =" SELECT TID from userinfo where userid = ' "& Userid &" '"RS.Open SQL, CONN, 1, 1 IF NOT RS.EOF THEN CONN.EXECUTE (" Delete from UserInfo Where Userid =' & Userid & "") Conn.execute ("delete from userlm where userid = '"& userid &"' ") end if rs.close lmcount = request (" lmcount ") TID = Request (" tid ") lmnum = 0 SQL =" SELECT ID from userlm where userid = '"& userid &"' and lmname = ' Home '"ropen sql, conn, 1 ,1 = server.eof the set = server.createObject (" adoDb.recordset ") SQL =" SELECT LMNAMEG, LMNAMEFT from Lanmu where lmname =' Home '"rs1.open SQL, CONN, 1, 1 lmnameeeg = rs1 ("lmnameeeg") lmnameft = rs1 ("lmnameft") rs1.close sq L = "SELECT YMNAME, YMTYPE, Content, Conteng, Contentft from TLOMU where TID =" & TID & "RS1.Open SQL, CONN, 1, 1 IF NOT RS1.EOF THEN YMNAME2 = RS1 (" YMNAME ") YMTYPE2 = RS1 (" YMTYPE ") LMCONTENT = RS1 (" Content " ) LmContentEG = rs1 ( "ContentEG") lmContentFT = rs1 ( "ContentFT") sql = "insert into userLM (userid, TID, lmName, lmnameeg, lmnameft, dlmName, ymName, lmContent, LMContentEG, LMContentFT, ymType, lmPos, bnav) VALUES ('"& Userid &", "& Tid &",' Home ',' "& Lmnameeg &", '"& Lmnameft &",' Home ',' "& YMName2 &", '"& lmContent &",' "& lmContenteg &", '"& lmcontentft &",' "& ymtype2 &" ', 0,' false ') "Conn.execute (SQL) Else Showmsg" System error! "," Err.htm? Kind = 1 "end if rs1.close set RS1 = Nothing end if rclose for i = 0 to lmcount if request ("lm" & i) = "true" and request ("BNAV" & i) = "true" the name2 = trim (Request ("Name" & i)) Egname = Trim ("Egname" & i)) ftname = trim (Request ("ftname") POS2 = Request ("POS" & I) BNAV = Request ("BNAV" DNAME2 = Request ("DNAME" & i) SQL = "SELECT YMNAME, YMTYPE, Content, Conteng, ContentFT from TLANMU WHERE TID =" & TID & "AND TLMNAME = '" & DNAME2 & "'" rs .open SQL, CONN, 1, 1 IF NOT RS.EOF THEN YMNAME = RS ( "YMNAME") YMTYPE = RS ("YMTYPE") Content = RS ("Content") Contenteg = rs ("contentft = rs (" contentft ") SQL =" insert into userLM (userid, TID, lmName, lmnameeg, lmnameft, dlmName, ymName, lmContent, LMContentEG, LMContentFT, ymType, lmPos, bnav) values ( ' "& userid &"', "& tid &", ' "& name2 &"', ' " & Egname & "','" & ftname & ", '" & dname2 & ",'" & content & ", '" & content "', '" & contentft & ",'" & ymtype & "," & pos2 & ", '"& Bnav &") "Conn.execute (SQL) Else Showmsg" System error! "," Err.htm? Kind = 2 "end if lmnum = lmnum 1 rs.close elseif request (" LM "& I) =" True "THEN Name2 = Trim (Request (" Name "& i)) Egname = Trim (Request (" Egname ") ftname = trim (Request (" ftname ") POS2 = Request (" POS "& I) BNAV = "false" dName2 = Request ( "dName" & i) sql = "select ymName, ymType, content, contenteg, contentft from tlanmu where tid =" & tid & "and tlmName = '" & dName2 & "'" rs.open sql, conn, 1 1 if not rs.eof the ymname = rs ("ymname") YMTYPE = RS ("YMTYPE") Content = RS ("Content") ContentEG = RS ("Conteng") ContentFT = RS ("ContentFT") SQL = "INSERT INTO Userlm (Userid, Tid, Lmname, Lmnameeg, Lmnameft, DLMNAME, YMNAME, LMCO NTENT, LMCONTENTEG, LMCONTENTFT, YMTYPE, LMPOS, BNAV) VALUES ('"& Userid &", "& Name2 &"', '" 转载请注明原文地址:https://www.9cbs.com/read-69969.html9cbsNew Post(0)
IF (length == 0) {return;}}} {document.form1.lm.checked = document.form1.chkall.checked;} if (length> 1) {for (var i = 0; I } * / Self-service station second step - please Select the website section > column name Settings Navigation <% if not = r e e = = rs.Recordcount%> "value =" <% = rs ("lmname")%> "> "> Name = "ftname <% = m%>" value = "<% = rs (" lmnameft ")%>> " & I & "" Next%> "> < / TR> <% m = m 1 rs.movenext loop 'rs.close end if%> TRIM ("UserID")) 'Checkall = Trim (Request ("isll")' response.write checkall 'response.end () showcover = "false" WebName = Request ("WebName") WebName = WebName & " There is currently no title | There is currently no title "" Session ("Language") = Request ("LG") IF Request ("lg") = "CN" THENTANGUAGE = "CN | FT | EN" Elseif Request ("LG ") =" ft "THENGUAGE =" FT | CN | EN "Elseif Request (" lg ") =" en "THEN TLANGUAGE =" EN | CN | FT "end if sql =" SELECT TID from userinfo where userid = ' "& Userid &" '"RS.Open SQL, CONN, 1, 1 IF NOT RS.EOF THEN CONN.EXECUTE (" Delete from UserInfo Where Userid =' & Userid & "") Conn.execute ("delete from userlm where userid = '"& userid &"' ") end if rs.close lmcount = request (" lmcount ") TID = Request (" tid ") lmnum = 0 SQL =" SELECT ID from userlm where userid = '"& userid &"' and lmname = ' Home '"ropen sql, conn, 1 ,1 = server.eof the set = server.createObject (" adoDb.recordset ") SQL =" SELECT LMNAMEG, LMNAMEFT from Lanmu where lmname =' Home '"rs1.open SQL, CONN, 1, 1 lmnameeeg = rs1 ("lmnameeeg") lmnameft = rs1 ("lmnameft") rs1.close sq L = "SELECT YMNAME, YMTYPE, Content, Conteng, Contentft from TLOMU where TID =" & TID & "RS1.Open SQL, CONN, 1, 1 IF NOT RS1.EOF THEN YMNAME2 = RS1 (" YMNAME ") YMTYPE2 = RS1 (" YMTYPE ") LMCONTENT = RS1 (" Content " ) LmContentEG = rs1 ( "ContentEG") lmContentFT = rs1 ( "ContentFT") sql = "insert into userLM (userid, TID, lmName, lmnameeg, lmnameft, dlmName, ymName, lmContent, LMContentEG, LMContentFT, ymType, lmPos, bnav) VALUES ('"& Userid &", "& Tid &",' Home ',' "& Lmnameeg &", '"& Lmnameft &",' Home ',' "& YMName2 &", '"& lmContent &",' "& lmContenteg &", '"& lmcontentft &",' "& ymtype2 &" ', 0,' false ') "Conn.execute (SQL) Else Showmsg" System error! "," Err.htm? Kind = 1 "end if rs1.close set RS1 = Nothing end if rclose for i = 0 to lmcount if request ("lm" & i) = "true" and request ("BNAV" & i) = "true" the name2 = trim (Request ("Name" & i)) Egname = Trim ("Egname" & i)) ftname = trim (Request ("ftname") POS2 = Request ("POS" & I) BNAV = Request ("BNAV" DNAME2 = Request ("DNAME" & i) SQL = "SELECT YMNAME, YMTYPE, Content, Conteng, ContentFT from TLANMU WHERE TID =" & TID & "AND TLMNAME = '" & DNAME2 & "'" rs .open SQL, CONN, 1, 1 IF NOT RS.EOF THEN YMNAME = RS ( "YMNAME") YMTYPE = RS ("YMTYPE") Content = RS ("Content") Contenteg = rs ("contentft = rs (" contentft ") SQL =" insert into userLM (userid, TID, lmName, lmnameeg, lmnameft, dlmName, ymName, lmContent, LMContentEG, LMContentFT, ymType, lmPos, bnav) values ( ' "& userid &"', "& tid &", ' "& name2 &"', ' " & Egname & "','" & ftname & ", '" & dname2 & ",'" & content & ", '" & content "', '" & contentft & ",'" & ymtype & "," & pos2 & ", '"& Bnav &") "Conn.execute (SQL) Else Showmsg" System error! "," Err.htm? Kind = 2 "end if lmnum = lmnum 1 rs.close elseif request (" LM "& I) =" True "THEN Name2 = Trim (Request (" Name "& i)) Egname = Trim (Request (" Egname ") ftname = trim (Request (" ftname ") POS2 = Request (" POS "& I) BNAV = "false" dName2 = Request ( "dName" & i) sql = "select ymName, ymType, content, contenteg, contentft from tlanmu where tid =" & tid & "and tlmName = '" & dName2 & "'" rs.open sql, conn, 1 1 if not rs.eof the ymname = rs ("ymname") YMTYPE = RS ("YMTYPE") Content = RS ("Content") ContentEG = RS ("Conteng") ContentFT = RS ("ContentFT") SQL = "INSERT INTO Userlm (Userid, Tid, Lmname, Lmnameeg, Lmnameft, DLMNAME, YMNAME, LMCO NTENT, LMCONTENTEG, LMCONTENTFT, YMTYPE, LMPOS, BNAV) VALUES ('"& Userid &", "& Name2 &"', '" 转载请注明原文地址:https://www.9cbs.com/read-69969.html9cbsNew Post(0)
} * /
Name = "ftname <% = m%>" value = "<% = rs (" lmnameft ")%>>
TRIM ("UserID")) 'Checkall = Trim (Request ("isll")' response.write checkall 'response.end () showcover = "false" WebName = Request ("WebName") WebName = WebName & " There is currently no title | There is currently no title "" Session ("Language") = Request ("LG") IF Request ("lg") = "CN" THENTANGUAGE = "CN | FT | EN" Elseif Request ("LG ") =" ft "THENGUAGE =" FT | CN | EN "Elseif Request (" lg ") =" en "THEN TLANGUAGE =" EN | CN | FT "end if sql =" SELECT TID from userinfo where userid = ' "& Userid &" '"RS.Open SQL, CONN, 1, 1 IF NOT RS.EOF THEN CONN.EXECUTE (" Delete from UserInfo Where Userid =' & Userid & "") Conn.execute ("delete from userlm where userid = '"& userid &"' ") end if rs.close lmcount = request (" lmcount ") TID = Request (" tid ") lmnum = 0 SQL =" SELECT ID from userlm where userid = '"& userid &"' and lmname = ' Home '"ropen sql, conn, 1 ,1 = server.eof the set = server.createObject (" adoDb.recordset ") SQL =" SELECT LMNAMEG, LMNAMEFT from Lanmu where lmname =' Home '"rs1.open SQL, CONN, 1, 1 lmnameeeg = rs1 ("lmnameeeg") lmnameft = rs1 ("lmnameft") rs1.close sq L = "SELECT YMNAME, YMTYPE, Content, Conteng, Contentft from TLOMU where TID =" & TID & "RS1.Open SQL, CONN, 1, 1 IF NOT RS1.EOF THEN YMNAME2 = RS1 (" YMNAME ") YMTYPE2 = RS1 (" YMTYPE ") LMCONTENT = RS1 (" Content "
) LmContentEG = rs1 ( "ContentEG") lmContentFT = rs1 ( "ContentFT") sql = "insert into userLM (userid, TID, lmName, lmnameeg, lmnameft, dlmName, ymName, lmContent, LMContentEG, LMContentFT, ymType, lmPos, bnav) VALUES ('"& Userid &", "& Tid &",' Home ',' "& Lmnameeg &", '"& Lmnameft &",' Home ',' "& YMName2 &", '"& lmContent &",' "& lmContenteg &", '"& lmcontentft &",' "& ymtype2 &" ', 0,' false ') "Conn.execute (SQL) Else Showmsg" System error! "," Err.htm? Kind = 1 "end if rs1.close set RS1 = Nothing end if rclose for i = 0 to lmcount if request ("lm" & i) = "true" and request ("BNAV" & i) = "true" the name2 = trim (Request ("Name" & i)) Egname = Trim ("Egname" & i)) ftname = trim (Request ("ftname") POS2 = Request ("POS" & I) BNAV = Request ("BNAV" DNAME2 = Request ("DNAME" & i) SQL = "SELECT YMNAME, YMTYPE, Content, Conteng, ContentFT from TLANMU WHERE TID =" & TID & "AND TLMNAME = '" & DNAME2 & "'" rs .open SQL, CONN, 1, 1 IF NOT RS.EOF THEN YMNAME = RS ( "YMNAME") YMTYPE = RS ("YMTYPE") Content = RS ("Content") Contenteg = rs ("contentft = rs (" contentft ") SQL ="
insert into userLM (userid, TID, lmName, lmnameeg, lmnameft, dlmName, ymName, lmContent, LMContentEG, LMContentFT, ymType, lmPos, bnav) values ( ' "& userid &"', "& tid &", ' "& name2 &"', ' " & Egname & "','" & ftname & ", '" & dname2 & ",'" & content & ", '" & content "', '" & contentft & ",'" & ymtype & "," & pos2 & ", '"& Bnav &") "Conn.execute (SQL) Else Showmsg" System error! "," Err.htm? Kind = 2 "end if lmnum = lmnum 1 rs.close elseif request (" LM "& I) =" True "THEN Name2 = Trim (Request (" Name "& i)) Egname = Trim (Request (" Egname ") ftname = trim (Request (" ftname ") POS2 = Request (" POS "& I) BNAV = "false" dName2 = Request ( "dName" & i) sql = "select ymName, ymType, content, contenteg, contentft from tlanmu where tid =" & tid & "and tlmName = '" & dName2 & "'" rs.open sql, conn, 1 1 if not rs.eof the ymname = rs ("ymname") YMTYPE = RS ("YMTYPE") Content = RS ("Content") ContentEG = RS ("Conteng") ContentFT = RS ("ContentFT") SQL = "INSERT INTO Userlm (Userid, Tid, Lmname, Lmnameeg, Lmnameft, DLMNAME, YMNAME, LMCO NTENT, LMCONTENTEG, LMCONTENTFT, YMTYPE, LMPOS, BNAV) VALUES ('"& Userid &", "& Name2 &"', '"
