苹果系列手机大全:怎样用VBSCRIPT来写下面这段程序?

来源：百度文库编辑：高校问答时间：2024/04/29 13:43:53

<% @Language="javascript" %>
<%
function OpenDB(sdbname)
{
/*
*--------------- OpenDB(sdbname) -----------------
* OpenDB(sdbname)
* 功能:打开数据库sdbname,返回conn对象.
* 参数:sdbname,字符串,数据库名称.
* 实例:var conn = OpenDB("database.mdb");
*--------------- OpenDB(sdbname) -----------------
*/
var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname);
var conn = Server.CreateObject("ADODB.Connection");
conn.Open(connstr);
return conn;
}
var sResult = "";
var oConn = OpenDB("data.mdb");
//相当于Form的Method=Get.
//相当于Form的Method=Get.
//特殊字符：+,%,&,=,?等的传输解决办法.客户端传输过来是经过escape编码的.
//所以服用器端应该先用unescape解码.
//Update:2004-6-1 12:22
//unescape(Request.QueryString("userid")).....
var userid = unescape(Request.QueryString("userid"));
var username = unescape(Request.QueryString("username"));
sResult = "userid:"+userid+"\nusername:"+username+"\n 添加成功!"
var sql = "Insert into users(userid,username)Values('"+userid+"','"+username+"')";
oConn.Execute(sql);
Response.Write(escape(sResult));
%>

<% @Language="vbscript" %>
<%
function OpenDB(sdbname)
var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(sdbname)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open(connstr)
OpenDB = conn
End function
Set sResult = ""
Set oConn = OpenDB("data.mdb")
Set userid = unescape(Request.QueryString("userid"))
Set username = unescape(Request.QueryString("username"))
sResult = "userid:" & userid & "\nusername:" & username & "\n 添加成功!"
Set sql = "Insert into users(userid,username)Values('"+userid+"','"+username+"')"
oConn.Execute(sql)
Response.Write(escape(sResult))
%>

怎样用VBSCRIPT来写下面这段程序? 怎样用VBScript过滤HTML标签有关vbscript程序问题如何运行vbscript程序有关VBSCRIPT程序的问题十万火急：怎样用C程序来实现积分运算？近期删掉的文件和程序怎样用DOS找回来？？近期删掉的文件和程序怎样用DOS找回来？ TCP是什么？怎样用它来做聊天程序？请问怎样用VB来做一个MP3的程序啊，