网页连接至数据库（asp-＞mdb）

---

**

本文为个人记录使用，出现问题概不负责

**

回评论：为什么不用php，因为当时什么都不会，还要搞个网站出来
所以在什么都不懂的情况下才莫名其妙的搞出了这个东西。
我先在肯定是推荐看到这篇文章的人直接拿idea去写一个Javaweb + springboot + mybatis出来，毕竟你都能看这个破文档了，vue前后端分离什么的肯定是不懂的。不懂的地方建议直接去chatgpt问，比我这个破东西好多了。

不知道当时内容被我放哪去了，简单说一下原理

需要基础的数据库select知识，和基础的html、jQuery知识

用的就是jquery的内容，

		var xmlhttp;

		if (window.XMLHttpRequest)
  		{// code for IE7+, Firefox, Chrome, Opera, Safari
  			xmlhttp=new XMLHttpRequest();
  		}
		else
  		{// code for IE6, IE5
  			xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
  		}

		xmlhttp.onreadystatechange=function()
  		{
  			if (xmlhttp.readyState==4 && xmlhttp.status==200)
    		{
    			str=xmlhttp.responseText;
    			var m,a,b,c,d,an;
    			m=str.search('jobtext');
    			a=str.search('answerA');
    			b=str.search('answerB');
    			c=str.search('answerC');
    			d=str.search('answerD');
    			an=str.search('finalanswer');
    			trueans=str.substring(an+14,str.length);
    			if(cnt==1)
    			{
    				$("#mainques").text(str.substring(m+10,a)+"请不要使用QQ或微信打开，用手机正常的浏览器打开以取得最佳浏览体验，当然用电脑最好");
    			}
    			else
    			{
    				$("#mainques").text(str.substring(m+10,a));
    			}
    			$("#ansa").text("A."+str.substring(a+9,b));
    			$("#ansb").text("B."+str.substring(b+9,c));
    			$("#ansc").text("C."+str.substring(c+9,d));
    			$("#ansd").text("D."+str.substring(d+9,an));
    		}
  		}
		xmlhttp.open("GET","/asp/text.asp?q="+str,true);
		xmlhttp.send();

上面这块是js中的内容，写到$(document).ready(function(){里面
最后面的/asp/text.asp很明显就是一个本地的asp路径，?后面的表示传递过去的参数

<%@Language="VBScript"   CodePage="65001"%> 
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "C:\Users\Administrator\Desktop\web-documents\sql\tiku.mdb"

set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT jobtext,answerA,answerB,answerC,answerD,finalanswer FROM selectedjob WHERE jobid="
sql=sql & request.querystring("q")
rs.Open sql, conn

do until rs.EOF
  for each x in rs.Fields
    Response.Write(x.name)
    Response.Write(" = ")
    Response.Write(x.value)
    'Response.Write("</br>")
  next
  rs.MoveNext
loop

rs.close
conn.close
%>

这一块是asp的内容，我记得是需要mdb2003及之前的版本

后记

这个因该是我目前搞过的最大的网页工程了，和之前web开发的作业相比，之前只是html写一些，然后拿超纲的jQuery搞点美化；这次则是涵盖了等一大堆东西，光是的帮助文档就看了好久，写了大概一天半左右，幸好最后写出来了。

正好是2020年的最后一天，留个纪念。
2020.12.31 15：36

后记的后记
我这写的什么玩意，难以想象我两年前搞了这种东西出来，走的是如此离谱的弯路，当时要是知道javaweb该多好。幸好一战考研考上了，这几天摸完毕业设计的中期报告就去联系导师，然后写游戏mod了

2023.4.10

2024.3.28
这个研究生是一天都读不下去了，我以前写的什么东西