Question

如何在数据库中读取一段代码在ASP环境中执行？？

比如我想执行A=B 就把A=B放如数据库中，问如何在ASP中调用它
我做的是一个号码分类管理的程序。我的意思是动态的定义一些规则，然后可以根据这些规则去给号码分类，比如可以把号码后几位相同的动态定义为几类，因此我要把判断的语句放到数据库中，请问如何做？？？

Answer 1

规则【a=b】

表设计【gz】

id    对象A     规则     对象B

1    a            =        b

2    a            <        b

3    a            >        b

4    a            包含    b

     ...            ..        ..

---------------------------------

代码:

Set Conn = Server.CreateObject("ADODB.Connection")                          
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database.mdb")             
Conn.Open                                                                  
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from gz " 
rs.Open sql,conn,1,1
while not rs.eof
    if rs("规则")="=" then response.write(“【”&rs("对象A")&"】是否"&rs("规则")&“【”&rs("对象B")&"】的结果为："&rs("对象A")=rs("对象B"))
    if rs("规则")=">" then response.write(“【”&rs("对象A")&"】是否"&rs("规则")&“【”&rs("对象B")&"】的结果为："&rs("对象A")>rs("对象B"))wend
    if rs("规则")="<" then response.write(“【”&rs("对象A")&"】是否"&rs("规则")&“【”&rs("对象B")&"】的结果为："&rs("对象A")<rs("对象B"))wend
    if rs("规则")="包含" then response.write(“【”&rs("对象A")&"】是否"&rs("规则")&“【”&rs("对象B")&"】的结果为："&instr(1,rs("对象A"), rs("对象B"),1)) 
   '...............................
   '...............................更多规则
   if not rs.eof then rs.movenext()
wend

 上述方法为变通方法，还有一种方法：

我在网上查到的情况：asp执行asp代码的唯一（我感觉）办法用asp函数Server.Execute("file2.asp")：

详细内容仅供参考，网址如下：http://www.w3school.com.cn/asp/met_execute.asp

虽然你的提问已经过去很久，但是我今天遇到了同样的问题，

写下来给需要的朋友一点帮助，如有更好的方法，欢迎告诉我，谢谢！

Answer 2

<%
'连接数据库，以ACCESS为例
cst="Provider=SQLOLEDB.1;uid=sa;database=pubs;"
set conn=Server.CreateObject("ADODB.Connection")
conn.open cst
set rs1=Server.CreateObject("ADODB.Recordset")
'SQL语句
dim sql
sql="select * from 表名"
rs1.open sql,conn,1,1
'循环读数据
while not rs1.eof
Response.Write rs1("列名")
rs1.movenext
wend
%>

Answer 3

你所说的是向表中添加一条记录主程序如下

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database.mdb")
Conn.Open
Set rs = Server.CreateObject("ADODB.Recordset")
'连接数据库

dim rs,A

A=request.form("A")
'返回表单数据，也就是你所说的“A=B”中的B

Set rs= Server.CreateObject("ADODB.Recordset")
strsql="select * from Form1"
rs.Open strsql,conn,3,2
rs.addnew
rs("A")=A
'将用户填写的B赋予字段A，向表（Form1)添加一条记录

rs.update
'保存数据
response.write "<script language=javascript>"
response.write "window.alert('恭喜你添加成功!')"

response.write "</script>"
'输出成功信息

%>