请问一个关于ASP，SQL，ACCESS 之间的问题

2004-05-05 09:56:57 175 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Android面试题之ContentProvider篇，安卓工程师面试题及答案前言最近经常被朋友问到的两个问题。问题一： “从事IT工作3年了，做技术好累啊，是不是做到30岁就不能继续往下做啊？”问题二： “我已经30岁了，还能不能学编程？” 我给出的答案是：只要你兴趣还在，可以一直做，什么时候都不会晚；种一棵树最好的时间是十年前，其次是现在。本人目前在 IT 行业工作了 6 年，做过大大小小的项目，虽然跟网上那些大牛比还差很远。但也确实经历过同样困惑，也迷茫过，踩过很多坑，今后也会继续踩。所以关于这一类问题，也有心得体验，在此算是做个人分享吧。 ContentProvi 阅读详情

我有一个产品发布系统，我是用ASP+SQL做的。。系统运行正常。由于我租用的空间不支持SQL 所以现在我要把SQL换成ACCESS 现在我已经把SQL转化为ACCESS了。。可是系统不能用了，。。有但是有一部分还是可以用的。。这之间应该有哪些语法上的区别或是要做怎么样的修改。。

部分代码如下：<%@language="VBscript"%>
<%Response.Expires=0%>


<%
sort_action=Request.Form("sort_action")
boardname=replace(Request.Form("boardname"),"'","''") '取得新目录名
current_ver=Request.QueryString("version")

if sort_action="add_new" then '当添加时

'当添加二级分类时
set rs=conn.execute("select typename from t_product_type where typename='" & boardname & "' and mever='" & current_ver &"' ")
if rs.eof then
conn.execute("insert into t_product_type(typename,mever) values('" & boardname & "','" & current_ver & "')")
Response.Redirect "product_catalog.asp?version=" & current_ver
else
showError chr(34) & boardname & chr(34) & "目录已经存在！"
end if

elseif sort_action="edit" then '当修改时

type_id=Request.Form("type_id")
level_name=Request.Form("level_name")

if level_name="root" then
sqlstr="select catalogname from t_product_catalog where catalogname='" & boardname & "' and mever='" & current_ver & "'"
sqlstr1="UPDATE t_product_catalog SET catalogname='" & boardname & "' where catalogID=" & type_id

elseif level_name="child" then
sqlstr="select typename from t_product_type where typename='" & boardname & "' and mever='" & current_ver & "'"
sqlstr1="UPDATE t_product_type SET typename='" & boardname & "' where ID=" & type_id

else
Response.Redirect "product_catalog.asp?version=" & current_ver
end if

set rs=conn.execute(sqlstr)
if rs.eof then
conn.execute sqlstr1
Response.Redirect "product_catalog.asp?version=" & current_ver
else
showError chr(34) & boardname & chr(34) & "目录已经存在！"
end if

elseif sort_action="del" then '当删除时

type_id=Request.Form("id")
conn.execute "DELETE FROM t_product_type WHERE ID=" & type_id

Response.Redirect "product_catalog.asp?version=" & current_ver

end if
%>
<%sub showError(msg)%>
<script language="javascript">
alert('<%=msg%>');
location.href="product_catalog.asp?version=<%=current_ver%>";
</script>
<%end sub%>

这部代码开始运行正常，换了ACCESS 数据库之后只有前边的添加部不行。。。

谢谢急。。。

...全文