<% if not chkpost () Then Showmsg "Don't try to invade! "," JavaScript: history.back () "server.scripttimeout = 99999ID = myfilter (Request (" TID ")) WebName = MyFilter (Request.form (" WebName)) IF LEN (WebName) = 0 or Len (WebName) )> 50 THEN SHOWMSG website The name cannot be empty and the length cannot exceed 50 characters! " Useridsession.timeout = 2 * 60sql = "SELECT * from lanter by id" ropen sql, conn, 1, 1%>
No title document </ title></p>
<p></ hEAD></p>
<p><body leftmargin = "0" TopMargin = "0"> <div align = "left"> <Table Width = "100%"> <TD BGColor = "# 59acff"> Self-buffet station third step - please Select the website section </ td> </ tr> </ table> </ div> <hr> <div align = "center"> <form name = "form1" method = "post" action = "? ACT = OK" > <Table width = "580" cellspacing = "1" bgcolor = "# ffffff"> <tr bgcolor = "# 59acff"> <TD width = "82> <input type =" checkbox "name =" chkall "VALUE = "ON" οnclick = "var Num = form1.checknum.value; for (var i = 0; i <num; i ) {WINDOW.EXECScript ('Document.form1.LM' I '. Checked =' this .checked '; Document.form1.bnav' i '. Disabled =' ! (this.checked) ';');} "title =" 全 选 "> all select </ td> <td width = "246"> Column Name </ TD> <TD Width = "108> Column location </ td> <td width =" 129 "> setting Navigation </ td> </ tr> <% if not rs.eof THEN M = 0 do while not rs.eof lmcount = rs.recordcount%> <tr bgcolor = "# c8e3ff"> <TD> <input name = "lm <% = m%>" type = "checkbox" value = " True "onclick =" var num Num = form1.checknum.value; for (var i = 0; i <num; i ) {WINDOW.EXECScript ('if (Document.form1.LM' i '. Checked == Tr UE) {document.form1.bnav ' i '. Disabled = false;} else {document.form1.bnav '</p>
<p> i '. disabled = true;}');} "> </ td> <TD> <input type =" text "name =" name <% = m%> "value =" <% = rs ("Lmname) ")%>"> <Input type = "hidden" name = "EGNAME <% = m%>" value = "<% = rs (" lmnameeeg ")%>"> <input type = "hidden" name = " FTName <% = m%> "value =" <% = rs ("lmnameft")%> "> </ td> <td> <select name =" pOS <% = m%>> <% for i = 1 TO RS.Recordcount response.write "<option>" & I & "</ option>" NEXT%> </ select> <input type = "hidden" name = "DNAME <% = m%>" value = "<% = RS ("Lmname")%>> </ td> <TD> <input name = "BNAV <% = m%>" type = "checkbox" value = "true" disabled = "true"> </ td > </ Tr> <% m = m 1 rsmovenext loop 'rs.close end if%> </ table> <p> <input type = "submit" name = "submit3" value = "Next"> <input type = "hidden" name = "TID" value = "<% = id%>> <input type =" hidden "name =" lmcount "value =" <% = lmcount%> "> <input type = "hidden" name = "lg" value = "<% = Language%>> <input type =" hidden "name =" WebName "</p>
<p>Value = "<% = WebName%>> <input type =" hidden "name =" userid "value =" <% = userid%>> <input type = "hidden" name = "checknum" value = "< % = rs.Recordcount%> "> </ p> </ form> </ div> <% = rs.close%> </ body> </ html> <% if request (" act ") =" ok " THEN Userid = Trim (Request.form ") 'Checkall = Trim (Request (" ISALL ")' response.write checkall 'response.end () showcover =" false "WebName = Request.form (" WebName ") WebName = WebName &" | There is currently no title | There is currently no title "SESSION (" Language) = Request.form ("LG") if Request.form ("LG") = "cn" THEN TLANGUAGE = " CN | FT | EN "Elseif Request.form (" lg ") =" ft "TLANGUAGE =" FT | CN | EN "Elseif Request.form (" LG ") =" En "Tlanguage =" EN | CN | FT "end if sql =" SELECT TID from userinfo where userid = '"& userid &"' "rs.open sql, conn, 1,1 if not rs.eof the conn.execute (" delete from userinfo where userid = '"& userid & us "'") Conn.execute ("delete from userlm where userid ='" & userid & "'") end if rs.close lmcount = request.form ("lmcount") TID = Request.form ("TID") lmnum = 0 SQL = "SELECT ID from Userlm Where US) Erid = '"& userid &"' and lmname = 'Home' "rs.open SQL, CONN, 1, 1 IF =") SET RS1 = Server.createObject ("AdoDb.Recordset") SQL = "</p>
<p>select LMNameEG, LMNameFT from LanMu where LMName = 'Home' "rs1.open sql, conn, 1,1 lmnameeg = rs1 (" LMNameEG ") lmnameft = rs1 (" LMNameFT ") rs1.close sql =" select ymName, ymType, Content, Contenteg, ContentFT from TLANMU 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 &",' Home ',' "& Lmnameeeg &", '"& Lmnameft &",' Home ',' "& YMName2 &", '"& lmContent &" "','" & lmcontenteg & ", '" & lmcontentft & ",'" & ymtype2 & ", 0, 'false')" Conn.execute (SQL) Else Showmsg "System error!", "Err.htm? Kind = 1 "End if = Noth.Close Set RS1 = Nothing end if = = 0 to lmcount if request (" lm "& i) =" true "and request (" BNAV "& i) =" true "the name2 = myfilter Trim (Request.form ("Name" & i) )) Egname = trim ("Egname" & i)) ftname = trim (Request ("ftname") POS2 = Request ("POS" & i) BNAV = Request ("BNAV" DNAME2 = Request ("DNAME "& i) SQL ="</p>
<p>Select Ymname, YmType, Content, Contenteg, 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 ("Conteng") '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 & "','" & YMNAME & ", '" & 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 = myfilter (trim ("name "& I))) Egname = trim (Request (" Egname ") ftname = trim (Request (" ftname ") POS2 = Request (" POS "BNAV =" false "DNAME2 = Request (" DNAME " & i) SQL = "SELECT YMNAME, YMTYPE, Content, Contenteg, ContentFT from TLANMU WHE RE TID = "& TID &" And TLMName = '"& DNAME2 &"' "RS.Open SQL, CONN, 1, 1 IF NOT RS.EOF THEN YMNAME = RS (" YMNAME "</p>
<p>) YMTYPE = RS ("YMTYPE") Content = RS ("Content") 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 &" ',' "& YMNAME &", '"& ContentEg &",' "& Contentft &", '"& YmType &", "& Pos2 &",' "& BNAV &") "Conn.execute (SQL) ELSE Showmsg "System error!", "Err.htm? Kind = 2" end if lmnum = lmnum 1 rs.close end if next if lmnum = 0 Then Showmsg "Please select the section!", "javascript: history.back () "Else SQL =" Select Tbottom, Tbottomeg, Tbottomft from Template WHERE ID = "& Tid Rs.open SQL, CONN, 1, 1 THEAD = RS (" TADEG ") THEADEG = RS (" THEADEG ") Tbottom = RS ("Tbottom") TBOTTOMEG = RS ("TBOTTOMEG") TBOTTOMFT = RS ("TBOTTOMFT") rs.close SQL = "Insert Into UserInfo (UserID, Tid, THEAD, THEADEG, TbotFT, Tbottom, Tbottomeg, Tbottomft, TLANGUAGE, UWEB _Title, usercover VALUES ('"& Userid &",' "& Tid &", '"& THEADEG &",' "& TiAdft &", '"& TbitTom &" "" "</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-64257.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>)
</div><div></div></div></div><ul class="postlist list-unstyled">
</ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="64257" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved
</div><div class="col text-right">Processed:
<b>0.042</b>, SQL:
<b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script>
var debug = DEBUG = 0;
var url_rewrite_on = 1;
var url_path = './';
var forumarr = {"1":"Tech"};
var fid = 1;
var uid = 0;
var gid = 0;
xn.options.water_image_url = 'view/img/water-small.png';
</script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script>
var forum_url = 'list-1.html';
var safe_token = '0n5bWwGGvgIlq_2FDT7PJf_2FQiIkQOVrhEg1GNljDjuF4WQTsp_2FAgREZioWE3BHh_2BnsLiOm0H53gnoyQVObkeNdAQ_3D_3D';
var body = $('body');
body.on('submit', '#form', function() {
var jthis = $(this);
var jsubmit = jthis.find('#submit');
jthis.reset();
jsubmit.button('loading');
var postdata = jthis.serializeObject();
$.xpost(jthis.attr('action'), postdata, function(code, message) {
if(code == 0) {
location.reload();
} else {
$.alert(message);
jsubmit.button('reset');
}
});
return false;
});
function resize_image() {
var jmessagelist = $('div.message');
var first_width = jmessagelist.width();
jmessagelist.each(function() {
var jdiv = $(this);
var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width();
var jmessage_width = Math.min(jdiv.width(), maxwidth);
jdiv.find('img, embed, iframe, video').each(function() {
var jimg = $(this);
var img_width = this.org_width;
var img_height = this.org_height;
if(!img_width) {
var img_width = jimg.attr('width');
var img_height = jimg.attr('height');
this.org_width = img_width;
this.org_height = img_height;
}
if(img_width > jmessage_width) {
if(this.tagName == 'IMG') {
jimg.width(jmessage_width);
jimg.css('height', 'auto');
jimg.css('cursor', 'pointer');
jimg.on('click', function() {
});
} else {
jimg.width(jmessage_width);
var height = (img_height / img_width) * jimg.width();
jimg.height(height);
}
}
});
});
}
function resize_table() {
$('div.message').each(function() {
var jdiv = $(this);
jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>');
});
}
$(function() {
resize_image();
resize_table();
$(window).on('resize', resize_image);
});
var jmessage = $('#message');
jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); });
jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); });
$('#nav li[data-active="fid-1"]').addClass('active');
</script>
