<% ‘****************************** ‘函数：ConnectionMssql(ConnStr) ‘参数：ConnStr,数据库连接代码 ‘作者：阿里西西 ‘日期：2007/7/13 ‘描述：通用数据库连接过程 ‘示例： ‘****************************** Sub ConnectionMssql(ConnStr) On Error Resume Ne
接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍微修改即可使用。 代码如下:<% sub AdminEdit() dim Action,rsCheckAdd,rs,sql Action=request.QueryString(“Action”) if Action=”SaveEdit” then ‘保存编辑管理员信息 set rs =
