<% @ language = vbscript code = 936%> <% option explicit '= ============================================================================================================================================================================================================= ====== 'Unlike Mechanism Code' ======================================== ================== Dim ndebug_msg ndebug_msg = false 'true, false
If ndebug_msg = true kil error filtering on Error ResMe Next End IF
'==================================================== ======== 'variable declaration and definition area' =================================== ======================
DIM Connstr, Oconn 'ADO Connection Variable DIM Serrmsg' Error Variable
'==================================================== ======== 'transaction definition area' ===================================== ===================== ============================================================================================================================================== ============================ 'func, the proc definition area' ================= =================================================================================================================================================================================
'==================================================== ======== 'function: Open the data source' parameter: 'Return value:' ============================ ============================= Sub connectionDatabase'sql database connection parameters: database name, user password, user name, connection name (local a local, field use IP) Dim SqlDatabaseName, sqlPassword, sqlUsername, SqlLocalName SqlDatabaseName = "xiaods" sqlPassword = sqlUsername = "xiaods" SqlLocalName = "192.168.211.7" ConnStr = "Provider = Sqloledb; User ID =" "QAZXSW @!" & sqlUsername & "; Password =" & sqlPassword & "; Initial Catalog =" & SqlDatabaseName & "; Data Source =" & SqlLocalName & ";" 'on error resume next Set oConn = Server.CreateObject ( "ADODB.Connection") Oconn.open connStr if Err Then Err.clear set Oconn = Nothing serrmsg = "Database connection error, please check the connection string." MERROR (Serrmsg) End IFEND SUB
'==================================================== ======== 'function: Turn off the data source' parameter: 'Return value:' ============================ ============================= Sub closedatabaseoconn.closset Oconn = Nothingend Sub
'==================================================== ======== 'function: Output error message' parameter: serrmsg 'Return value:' =========================== ============================== Sub MERROR (Serrmsg) 'response.write serrmsg & "please contact system administrator." Response.write "& vbrlfresponse.write"
"& vbrlfresponse.write"
Acon Game background management system </ title> "& vbcrfresponse.write" <meta name = "" generator "" Content = " "Microsoft Visual Studio 6.0" ">" & vbCrLfresponse.write "" & vbCrLfresponse.write "</ head>" & vbCrLfresponse.write "" & vbCrLfresponse.write "<body>" & vbCrLfresponse.write "<table border =" "0" "Width =" "100%" "Height =" "100%" "Cellspacing =" "0" "Cellpadding =" "0"> "& vbrlfresponse.write" <tr> "& vbcrfresponse.write" <TD Width = "100%" "Valign =" "Middle" "Align =" ""> & vbcrlfresponse.write "& vbcrfresponse.write"</p>
<p><Table Border = "" 1 "" Width = "" 40% "" Cellspacing = "" 0 "" Cellpadding = "" 4 "" BorderColorlight = "" # 000080 "" BordercoloRDARK = "# 000080"> "& Vbcrfresponse.write "<tr>" & vbcrfresponse.write "<td width =" 100% "" BGCOLOR = "" # 000080 "> <font color =" # ffffff ">" & serrmsg & "</ font > </ td> "& vbcr>" & vbcrfresponse.write "</ table>" & vbcrfresponse.write "<table border =" 1 "" width = "" 40% "BorderColorlight = "# 000080" "Cellspacing =" "0" "Cellpadding =" "8" "BorderColordark =" "# 000080"> "& vbcrfresponse.write" <tr> "& vbcrfresponse.write" <td width = " 100% ""> You have to browse, do not hesitate, immediately and <A href=""mailto:Webmaster@asiagame.com""> System Administrator </A>. "</p>
<p>"& vbrlfresponse.write" <p> <font face = "" verdana "" Size = "" 2 "> if you have anyproblem, please" & vbcrfresponse.write "Don't heSitate to contact the <a href = "" Mailto: Webmaster@asiagame.com "> Systems" & vbcrfresponse.write "administrator </a>. </ font> </ td>" & vbcr1fresponse.write "</ tr>" & vbcrfresponse.write "< Tr> "& vbrlfresponse.write" <td width = "" 100% "" Align = "" ""> Acon Game <br> "& vbcrfresponse.write" <font size = "2"> asiagame. COM </ font> </ td> "& vbrlfresponse.write" </ tr> "& vbrlfresponse.write" </ table> "& vbcrfresponse.write" & vbcrfresponse.write "</ td>" & vbcrfresponse.write </ TR> "& vbrlfresponse.write" </ table> "response.write" </ body> "& vbrlfresponse.write" </ html> "End Sub'ConnectionDatabase 'Open DateSRC%> This is the modified version of the relevant resources : SEMCMS Foreign Trade Website PHP Version V3.9.ZIP</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-27910.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="27910" 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.044</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 = 'RJYqIJO73taD2g16em_2Bm1PUSm5hZasUknZvgfrBTH_2FxXrqfJ9fqpWD4nCiJDKcT8yU296xF93KZgFoBa';
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>
