ASP封装为DLL的请求，请高手指教

老农民77 2010-05-18 11:37:45 
<%

Response.Buffer = True

Response.Expires = -1

Response.ExpiresAbsolute = Now() - 1

Response.Expires = 0

Response.CacheControl = "no-cache"

%>

<!-- #include file="conn.asp" -->

<!-- #include file="inc/md5.asp" -->

<%

sql="select * from config"

set rs_config=conn.execute(sql)

dianming=rs_config("dianming")

if request("action")="" then

%>

<%if dianming <> "测试平台" then%>

<%

response.redirect "/system/error.htm" 

%>

<%end if%>



<HTML>

<HEAD>

<TITLE><%=dianming%> - 系统登陆</TITLE>







<META http-equiv=Content-Type content="text/html; charset=gb2312">

            <SCRIPT language=JavaScript type=text/JavaScript>

				nereidFadeObjects = new Object();

				nereidFadeTimers = new Object();

				function nereidFade(object, destOp, rate, delta){

				if (!document.all)

				return

					if (object != "[object]"){ 

						setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0);

						return;

					}

					clearTimeout(nereidFadeTimers[object.sourceIndex]);

					diff = destOp-object.filters.alpha.opacity;

					direction = 1;

					if (object.filters.alpha.opacity > destOp){

						direction = -1;

					}

					delta=Math.min(direction*diff,delta);

					object.filters.alpha.opacity+=direction*delta;

					if (object.filters.alpha.opacity != destOp){

						nereidFadeObjects[object.sourceIndex]=object;

						nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);

					}

				}

				</SCRIPT>

<STYLE>

body {font-family: "宋体";font-size: 12px;text-decoration: none;}

td {font-size: 12px;color: #666666;text-decoration: none;line-height: 18px;font-family: "宋体";}

.S1{

font-family: "宋体"; 

font-weight: bold; 

color: #ffffff; 

font-size:16px;

text-decoration: none}

.STYLE2 {color: #0000CC}

</STYLE>

</head>

<body bgcolor="#CDE6FA" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td align="center" valign="middle">

<table width="646" height="425" border="0" align="center" cellpadding="0" cellspacing="0">

	<tr>

		<td colspan="3">

			<img src="images/login_01.gif" width="646" height="114" alt="mis系统"></td>

	</tr>

	<tr>

		<td>

			<img src="images/login_02.gif" width="88" height="311" alt=""></td>

	  <td width="476" height="311" valign="top" background="images/login_03.gif"><br>

		         <FORM ACTION="index.asp?action=login" METHOD="post" name="loginform">

		      <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">

          <tr>

            <td width="87" height="30" align="right">　</td>

            <td valign="middle">

			  <select name="class">

				<option value="1">管理员</option>

			    <option value="0">供应商</option>

			  </select>

			</td>

            </tr>

		  <tr>

            <td width="87" height="30" align="right">登录名：</td>

            <td valign="middle"><input type="text" name="username" tabindex="1" style="width:200px;"></td>

            </tr>

          <tr>

            <td height="30" align="right">密　码：</td>

            <td><INPUT name="password"  type="password" tabindex="2" style="width:200px;"></td>

          </tr>

          <tr>

            <td height="30" align="right">验证码：</td>

            <td height="30"><input type=text name="verifycode" maxLength=6 size="6" tabindex="3" class="textbox"> <font color=red><-请在验证码框输入</font> <IMG style="cursor:hand;" src="inc/verifycode.asp?n=<%=Timer%>" onClick="this.src=this.src;" align="absmiddle"> </td>

          </tr>

          <tr>

            <td height="50" colspan="2" align="center"><input onMouseOver=nereidFade(this,100,10,5)  style="FILTER:alpha(opacity=50)" onMouseOut=nereidFade(this,50,10,5) src="images/dl.gif"  type="image" tabindex="5" name="enter" border="0" onClick="return checkform()">

            </td>

            </tr>

          <tr>

            <td colspan="2"></td>

          </tr>

        </table>

		</form><hr size=1 color='#efefef' width='80%' align='left'>

		<div align="center"><span class="STYLE2">Copyright © 2010 Powered By Ebizal Technology</span><br>	

        </div>

		<div style="FONT-SIZE: 12px; COLOR: #FFFFFF;TEXT-ALIGN: center;"></div>

	

		<td>

			<img src="images/login_04.gif" width="82" height="311" alt=""></td>

	</tr>

</table>

</td></tr></table>

<script language=javascript>

<!--

function document.onreadystatechange()

{  var app=navigator.appName;

  var verstr=navigator.appVersion;

  if(app.indexOf('Netscape') != -1) {

    alert('友情提示：\n    您使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。');

  } else if(app.indexOf('Microsoft') != -1) {

    if (verstr.indexOf('MSIE 3.0')!=-1 || verstr.indexOf('MSIE 4.0') != -1 || verstr.indexOf('MSIE 5.0') != -1 || verstr.indexOf('MSIE 5.1') != -1)

      alert('友情提示：\n    您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。');

  }

  document.loginform.username.focus();

}

function checkform() {

  if(loginform.username.value == '') {

    alert('请输入管理账号！');

    loginform.username.focus();

    return false;

  }

  if(loginform.password.value == '') {

    alert('请输入密码！');

    loginform.password.focus();

    return false;

  }

  if (loginform.verifycode.value == '') {

    alert ('请输入验证码！');

    loginform.verifycode.focus();

    return false;

  }

}

//-->

</script>

</html>

<%

else

nowclass=request.form("class")

nowusername=request.form("username")

nowpassword=request.form("password")

if Trim(Request.Form("Verifycode"))<>Trim(Session("Verifycode")) then 

%>

<script language=javascript>

alert('您输入的后台管理认证码不对，请重新输入！')

window.history.go(-1)

</script>

<%

  response.end

end if

if nowclass="1" then

  sql="select * from login where (username='"&nowusername&"' and password='"&md5(nowpassword)&"') or (bianhao='"&nowusername&"' and password='"&md5(nowpassword)&"')"

else

  sql="select * from gys where company='"&nowusername&"' and password='"&md5(nowpassword)&"'"

end if

set rs=conn.execute(sql)

if rs.eof then

%>

<script language=javascript>

alert('登录名称或密码错误！')

window.history.go(-1)

</script>

<%

  response.end

end if

if nowclass="1" then

set rs_zu=conn.execute("select * from zu_login where id="&rs("id_zu"))

if rs_zu.eof=false then

  session("Ebizal_zu")=rs_zu("zu")

else

  session("Ebizal_zu")=""

end if

session("Ebizal_username")=rs("username")

session("Ebizal_id")=rs("id")

Session("ManageName")=rs("username")

Session("ManagePwd")=rs("password")

Session("ManageLevel")="3"

Session("EmpId") = rs("id")

Session("EmpName") = rs("UserName")



set rs_zu1=conn.execute("select * from zu_login where id="&rs("id_zu"))

if not rs_zu1.eof then

Session("DeptName") = rs_zu1("zu")

end if

set rs_zu1=nothing



response.redirect "main.asp"

else

session("gys_username")=rs("company")

session("gys_id")=rs("id")

response.redirect "gys_main.asp"

end if

end if

%>



<%

conn.close 

set conn=nothing 

set ConDB1=nothing

set ConDB2=nothing

set ConDB3=nothing

%>

如上代码，我需要用VB封装为DLL，请高手帮写下，谢谢！
我的邮箱是:fyzx77@126.com
不够可加分！
...全文
218 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
toury 2010-05-26
  • 打赏
  • 举报
 回复
[Quote=引用 18 楼 cz12980 的回复:]

上面打太快打错了！

你封装了就无法执行了！ASP是服务器端程序！
[/Quote]
该百度的是你，呵呵
cz12980 2010-05-26
  • 打赏
  • 举报
 回复
上面打太快打错了！

你封装了就无法执行了！ASP是服务器端程序！
cz12980 2010-05-26
  • 打赏
  • 举报
 回复
你封装了就无法执行了！ASP是客户端程序！

你可以用一个叫做：NetBox 的软件来做封装成exe可执行程序！
这是他的封装教程，http://blog.csdn.net/zhengzhichen/archive/2008/07/01/2601457.aspx

下载的话直接百度一下 NetBox ！就有很多了！
toury 2010-05-25
  • 打赏
  • 举报
 回复
，别人帮你看了代码也是头痛医头的作用。给你个调试方法，你自己慢慢调试一下：

1、打开你的IIS,右键你的网站--属性--目录安全性--编辑，选择“集成WINDOWS身份验证”;
2、vb6IDE：打开你的DLL工程，菜单project--你的工程名properties--debugging: 单选 start browser with URL；在下面的输入框填写你的测试ASP地址；
3、F8单步调试；当跳出身份验证窗口时，填写你开机时的用户和密码；
4、在你需要断点的地方打断点。继续调试

这样很快就找到问题了
老农民77 2010-05-24
  • 打赏
  • 举报
 回复
续上面


Response.Write "            <td height=""30"" align=""right"">验证码：</td>" & vbCrLf

Response.Write "            <td height=""30""><input type=text name=""verifycode"" maxLength=6 size=""6"" tabindex=""3"" class=""textbox""> <font color=red><-请在验证码框输入</font> <IMG style=""cursor:hand;"" src=""inc/verifycode.asp?n=<%=Timer%>"" onClick=""this.src=this.src;"" align=""absmiddle""> </td>" & vbCrLf

Response.Write "          </tr>" & vbCrLf

Response.Write "          <tr>" & vbCrLf

Response.Write "            <td height=""50"" colspan=""2"" align=""center""><input onMouseOver=nereidFade(this,100,10,5)  style=""FILTER:alpha(opacity=50)"" onMouseOut=nereidFade(this,50,10,5) src=""images/dl.gif""  type=""image"" tabindex=""5"" name=""enter"" border=""0"" onClick=""return checkform()"">" & vbCrLf

Response.Write "            </td>" & vbCrLf

Response.Write "            </tr>" & vbCrLf

Response.Write "          <tr>" & vbCrLf

Response.Write "            <td colspan=""2""></td>" & vbCrLf

Response.Write "          </tr>" & vbCrLf

Response.Write "        </table>" & vbCrLf

Response.Write "        </form><hr size=1 color='#efefef' width='80%' align='left'>" & vbCrLf

Response.Write "        <div align=""center""><span class=""STYLE2"">Copyright © 2010 Powered By Ebizal Technology</span><br>   " & vbCrLf

Response.Write "        </div>" & vbCrLf

Response.Write "        <div style=""FONT-SIZE: 12px; COLOR: #FFFFFF;TEXT-ALIGN: center;""></div>" & vbCrLf

    

Response.Write "        <div align=""center"">汇智科技--中小企业信息化管理专家</div>" & vbCrLf

Response.Write "      <td>" & vbCrLf

Response.Write "            <img src=""images/login_04.gif"" width=""82"" height=""311"" alt=""""></td>" & vbCrLf

Response.Write "    </tr>" & vbCrLf

Response.Write "</table>" & vbCrLf

Response.Write "</td></tr></table>" & vbCrLf

Response.Write "<script language=javascript>" & vbCrLf



Response.Write "function document.onreadystatechange()" & vbCrLf

Response.Write "{  var app=navigator.appName;" & vbCrLf

Response.Write "  var verstr=navigator.appVersion;" & vbCrLf

Response.Write "  if(app.indexOf('Netscape') != -1) {" & vbCrLf

Response.Write "    alert('友情提示：\n    您使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。');" & vbCrLf

Response.Write "  } else if(app.indexOf('Microsoft') != -1) {" & vbCrLf

Response.Write "    if (verstr.indexOf('MSIE 3.0')!=-1 || verstr.indexOf('MSIE 4.0') != -1 || verstr.indexOf('MSIE 5.0') != -1 || verstr.indexOf('MSIE 5.1') != -1)" & vbCrLf

Response.Write "      alert('友情提示：\n    您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。');" & vbCrLf

Response.Write "  }" & vbCrLf

Response.Write "  document.loginform.username.focus();" & vbCrLf

Response.Write "}" & vbCrLf

Response.Write "function checkform() {" & vbCrLf

Response.Write "  if(loginform.username.value == '') {" & vbCrLf

Response.Write "    alert('请输入管理账号！');" & vbCrLf

Response.Write "    loginform.username.focus();" & vbCrLf

Response.Write "    return false;" & vbCrLf

Response.Write "  }" & vbCrLf

Response.Write "  if(loginform.pwd.value == '') {" & vbCrLf

Response.Write "    alert('请输入密码！');" & vbCrLf

Response.Write "    loginform.pwd.focus();" & vbCrLf

Response.Write "    return false;" & vbCrLf

Response.Write "  }" & vbCrLf

Response.Write "  if (loginform.verifycode.value == '') {" & vbCrLf

Response.Write "    alert ('请输入验证码！');" & vbCrLf

Response.Write "    loginform.verifycode.focus();" & vbCrLf

Response.Write "    return false;" & vbCrLf

Response.Write "  }" & vbCrLf

Response.Write "}" & vbCrLf



Response.Write "</script>" & vbCrLf

Response.Write "</html>" & vbCrLf



Else

nowclass = Request.Form("class")

nowusername = Request.Form("username")

nowpwd = Request.Form("pwd")

If Trim(Request.Form("Verifycode")) <> Trim(Session("Verifycode")) Then



Response.Write "<script language=javascript>"

Response.Write "alert('您输入的后台管理认证码不对，请重新输入！')"

Response.Write "window.history.go(-1)"

Response.Write "</script>"



  Response.End

End If



If nowclass = "1" Then

  sql = "select * from login where (username='""&nowusername&""' and pwd='""&md5(nowpwd)&""') or (bianhao='""&nowusername&""' and pwd='""&md5(nowpwd)&""')"

Else

  sql = "select * from gys where company='""&nowusername&""' and pwd='""&md5(nowpwd)&""'"

End If



Set rs = conn.Execute(sql)

If rs.EOF Then



Response.Write "<script language=javascript>"

Response.Write "alert('登录名称或密码错误！')"

Response.Write "window.history.go(-1)"

Response.Write "</script>"



  Response.End

End If

If nowclass = "1" Then

Set rs_zu = conn.Execute("select * from zu_login where id=" & rs("id_zu"))

If rs_zu.EOF = False Then

  Session("Ebizal_zu") = rs_zu("zu")

Else

  Session("Ebizal_zu") = ""

End If

Session("Ebizal_username") = rs("username")

Session("Ebizal_id") = rs("id")

Session("ManageName") = rs("username")

Session("ManagePwd") = rs("pwd")

Session("ManageLevel") = "3"

Session("EmpId") = rs("id")

Session("EmpName") = rs("UserName")



Set rs_zu1 = conn.Execute("select * from zu_login where id=" & rs("id_zu"))

If Not rs_zu1.EOF Then

Session("DeptName") = rs_zu1("zu")

End If

Set rs_zu1 = Nothing



Response.Redirect "main.asp"

Else

Session("gys_username") = rs("company")

Session("gys_id") = rs("id")

Response.Redirect "gys_main.asp"

End If

End If



End Sub

ASP中调用的代码是：
<%Dim AspTransBuilderObject



Set AspTransBuilderObject = Server.CreateObject("test.Class1")



AspTransBuilderObject.AspClassInit



Set AspTransBuilderObject = Nothing%>

请高手帮看看哪里出问题了，谢谢！
老农民77 2010-05-24
  • 打赏
  • 举报
 回复
我通过用VB将上面代码写成如下代码，并编译成DLL，但是还是无法在ASP中调用：


Private Sub Class_Initialize()



On Error Resume Next



Set objContext = GetObjectContext



Set Application = objContext.Item("Application")



Set Server = objContext.Item("Server")



Set Session = objContext.Item("Session")



Set Request = objContext.Item("Request")



Set Response = objContext.Item("Response")



End Sub



Private Sub Class_Terminate()



On Error Resume Next



Set Application = Nothing



Set Server = Nothing



Set Session = Nothing



Set Request = Nothing



Set Response = Nothing



Set objContext = Nothing



End Sub





Public Sub AspClassInit()













'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面

Response.Buffer = True

Response.Expires = -1

Response.ExpiresAbsolute = Now() - 1

Response.Expires = 0

Response.CacheControl = "no-cache"



Response.Write "<!-- #include file=""conn.asp"" -->" & vbCrLf

Response.Write "<!-- #include file=""inc/md5.asp"" -->" & vbCrLf



sql = "select * from config"

Set rs_config = conn.Execute(sql)

dianming = rs_config("dianming")

If dianming <> "123456" Then

Response.Write "Response.Redirect ""/system/error.htm""" & vbCrLf

End If

If Request("action") = "" Then







Response.Write "<HTML>" & vbCrLf

Response.Write "<HEAD>" & vbCrLf

Response.Write "<TITLE><%=dianming%> - 系统登陆</TITLE>" & vbCrLf







Response.Write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">" & vbCrLf

Response.Write "            <SCRIPT language=JavaScript type=text/JavaScript>" & vbCrLf

Response.Write "                nereidFadeObjects = new Object();" & vbCrLf

Response.Write "                nereidFadeTimers = new Object();" & vbCrLf

Response.Write "                function nereidFade(object, destOp, rate, delta){" & vbCrLf

Response.Write "                if (!document.all)" & vbCrLf

Response.Write "                return" & vbCrLf

Response.Write "                    if (object != ""[object]""){ " & vbCrLf

Response.Write "                        setTimeout(""nereidFade(""+object+"",""+destOp+"",""+rate+"",""+delta+"")"",0);" & vbCrLf

Response.Write "                        return;" & vbCrLf

Response.Write "                    }" & vbCrLf

Response.Write "                    clearTimeout(nereidFadeTimers[object.sourceIndex]);" & vbCrLf

Response.Write "                    diff = destOp-object.filters.alpha.opacity;" & vbCrLf

Response.Write "                    direction = 1;" & vbCrLf

Response.Write "                    if (object.filters.alpha.opacity > destOp){" & vbCrLf

Response.Write "                        direction = -1;" & vbCrLf

Response.Write "                    }" & vbCrLf

Response.Write "                    delta=Math.min(direction*diff,delta);" & vbCrLf

Response.Write "                    object.filters.alpha.opacity+=direction*delta;" & vbCrLf

Response.Write "                    if (object.filters.alpha.opacity != destOp){" & vbCrLf

Response.Write "                        nereidFadeObjects[object.sourceIndex]=object;" & vbCrLf

Response.Write "                        nereidFadeTimers[object.sourceIndex]=setTimeout(""nereidFade(nereidFadeObjects[""+object.sourceIndex+""],""+destOp+"",""+rate+"",""+delta+"")"",rate);" & vbCrLf

Response.Write "                    }" & vbCrLf

Response.Write "                }" & vbCrLf

Response.Write "                </SCRIPT>" & vbCrLf

Response.Write "<STYLE>" & vbCrLf

Response.Write "body {font-family: ""宋体"";font-size: 12px;text-decoration: none;}" & vbCrLf

Response.Write "td {font-size: 12px;color: #666666;text-decoration: none;line-height: 18px;font-family: ""宋体"";}" & vbCrLf

Response.Write ".S1{" & vbCrLf

Response.Write "font-family: ""宋体""; " & vbCrLf

Response.Write "font-weight: bold; " & vbCrLf

Response.Write "color: #ffffff; " & vbCrLf

Response.Write "font-size:16px;" & vbCrLf

Response.Write "text-decoration: none}" & vbCrLf

Response.Write ".STYLE2 {color: #0000CC}" & vbCrLf

Response.Write "</STYLE>" & vbCrLf

Response.Write "</head>" & vbCrLf

Response.Write "<body bgcolor=""#CDE6FA"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & vbCrLf

Response.Write "<table width=""100%"" height=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf

Response.Write "<tr>" & vbCrLf

Response.Write "<td align=""center"" valign=""middle"">" & vbCrLf

Response.Write "<table width=""646"" height=""425"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf

Response.Write "    <tr>" & vbCrLf

Response.Write "        <td colspan=""3"">" & vbCrLf

Response.Write "            <img src=""mages/login_01.gif"" width=""646"" height=""114"" alt=""汇智进销存管理系统""></td>" & vbCrLf

Response.Write "    </tr>" & vbCrLf

Response.Write "    <tr>" & vbCrLf

Response.Write "        <td>" & vbCrLf

Response.Write "            <img src=""images/login_02.gif"" width=""88"" height=""311"" alt=""""></td>" & vbCrLf

Response.Write "      <td width=""476"" height=""311"" valign=""top"" background=""images/login_03.gif""><br>" & vbCrLf

Response.Write "                 <FORM ACTION=""index.asp?action=login"" METHOD=""post"" name=""loginform"">" & vbCrLf

Response.Write "              <table width=""80%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf

Response.Write "          <tr>" & vbCrLf

Response.Write "            <td width=""87"" height=""30"" align=""right"">　</td>" & vbCrLf

Response.Write "            <td valign=""middle"">" & vbCrLf

Response.Write "              <select name=""class"">" & vbCrLf

Response.Write "                <option value=""1"">管理员登陆</option>" & vbCrLf

Response.Write "                <option value=""0"">供应商登陆</option>" & vbCrLf

Response.Write "              </select>" & vbCrLf

Response.Write "            </td>" & vbCrLf

Response.Write "            </tr>" & vbCrLf

Response.Write "          <tr>" & vbCrLf

Response.Write "            <td width=""87"" height=""30"" align=""right"">登录名：</td>" & vbCrLf

Response.Write "            <td valign=""middle""><input type=""text"" name=""username"" tabindex=""1"" style=""width:200px;""></td>" & vbCrLf

Response.Write "            </tr>" & vbCrLf

Response.Write "          <tr>" & vbCrLf

Response.Write "            <td height=""30"" align=""right"">密　码：</td>" & vbCrLf

Response.Write "            <td><INPUT name=""pwd""  type=""password"" tabindex=""2"" style=""width:200px;""></td>" & vbCrLf

Response.Write "          </tr>" & vbCrLf

Response.Write "          <tr>" & vbCrLf
北京不不 2010-05-20
  • 打赏
  • 举报
 回复
顶一下。自己玩玩，找找资料。没有玩不了的东西，只要你用心。网上有很多封装dll的例子。
封装有很多优点。至少可以控制自己的软件。把一些后门写到dll里。
比较狠。
yaliha2000 2010-05-20
  • 打赏
  • 举报
 回复
我的淺見也是..像我自己是把數據庫連線的部分會封裝起來 [防止黑客]
還有數據生成HTML的地方會封裝起來 [因為COM+有多執行緒]
還有文檔的操作會封裝起來[便於統一管理]
taohaomei 2010-05-20
  • 打赏
  • 举报
 回复
学习、收藏了
枫阳 2010-05-19
  • 打赏
  • 举报
 回复
封装要注意全局变量和子函数的问题，否则会编译出错
yangtututu 2010-05-19
  • 打赏
  • 举报
 回复
我 记得网上有 ASP TO DLL 的工具，你去找一个
xk029 2010-05-19
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 falizixun2 的回复:]
封装一般都只封核心代码，VB可以封装ASP的相应操作类，比如数据库操作类，分页类，但是像客户端HTML代码的封装好象没有听说过！VB封装虽然可以隐藏代码，但是用起来却很麻烦，需要把相应的DLL进行注册，并放在服务器指定位置，然后在ASP代码里也必须建立相应的组件，方可使用！实际应用上极其不方便，尤其对于客户来说更不方便，如果想学学这个，可以自己装个VB，百度上找关键字：VB封装ASP。很快你就知道……
[/Quote]
支持下
kaifadi 2010-05-19
  • 打赏
  • 举报
 回复
封装一般都只封核心代码，VB可以封装ASP的相应操作类，比如数据库操作类，分页类，但是像客户端HTML代码的封装好象没有听说过！VB封装虽然可以隐藏代码，但是用起来却很麻烦，需要把相应的DLL进行注册，并放在服务器指定位置，然后在ASP代码里也必须建立相应的组件，方可使用！实际应用上极其不方便，尤其对于客户来说更不方便，如果想学学这个，可以自己装个VB，百度上找关键字：VB封装ASP。很快你就知道用法了！不过ASP应用真的非常不建议去封装，学习下这个方法倒是可以！
如果你喜欢把自己的代码封装的话，可以改学ASP。NET，封装了照样和普通代码一样，使用上也很方便，无许注册！能更有效的保护你的代码！
yifanwu 2010-05-19
  • 打赏
  • 举报
 回复
nowclass = Request.Form( "class" )
nowusername = Request.Form( "username" )
nowpassword = Request.Form( "password" )
If Trim(Request.Form( "Verifycode" ) ) < > Trim(Session( "Verifycode" ) ) Then
Response.Write vbCrLf
Response.Write "<script language=javascript>" & vbCrLf
Response.Write "alert('您输入的后台管理认证码不对，请重新输入！')" & vbCrLf
Response.Write "window.history.go(-1)" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.End:Err.Raise -19811126 : Exit Sub
End If
If nowclass = "1" Then
sql = "select * from login where (username='" & nowusername & "' and password='" & md5(nowpassword ) & "') or (bianhao='" & nowusername & "' and password='" & md5(nowpassword ) & "')"
Else
sql = "select * from gys where company='" & nowusername & "' and password='" & md5(nowpassword ) & "'"
End If
Set rs = conn.Execute(sql )
If rs.EOF Then
Response.Write vbCrLf
Response.Write "<script language=javascript>" & vbCrLf
Response.Write "alert('登录名称或密码错误！')" & vbCrLf
Response.Write "window.history.go(-1)" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.End:Err.Raise -19811126 : Exit Sub
End If
If nowclass = "1" Then
Set rs_zu = conn.Execute( "select * from zu_login where id=" & rs( "id_zu" ) )
If rs_zu.EOF = false Then
Session( "Ebizal_zu" ) = rs_zu( "zu" )
Else
Session( "Ebizal_zu" ) = ""
End If
Session( "Ebizal_username" ) = rs( "username" )
Session( "Ebizal_id" ) = rs( "id" )
Session( "ManageName" ) = rs( "username" )
Session( "ManagePwd" ) = rs( "password" )
Session( "ManageLevel" ) = "3"
Session( "EmpId" ) = rs( "id" )
Session( "EmpName" ) = rs( "UserName" )
Set rs_zu1 = conn.Execute( "select * from zu_login where id=" & rs( "id_zu" ) )
toury 2010-05-19
  • 打赏
  • 举报
 回复
封装通常只是把SERVER端关键逻辑部分封装起来；
你连客户端代码也要封装，难不成还要做成客户端插件让客户端安装不成？呵呵
sxy_19029 2010-05-19
  • 打赏
  • 举报
 回复
没必要封装!
夫人的泡泡鱼 2010-05-19
  • 打赏
  • 举报
 回复
支持鼓励……！
001007009 2010-05-19
  • 打赏
  • 举报
 回复
up!!!
老农民77 2010-05-19
  • 打赏
  • 举报
 回复
能否把我的完整代码封装下，实在是不会VB这玩意，谢谢
学习制作服务器控件(学习中，请高手指教)
using System; using System.Collections.Generic; using System.ComponentModel; using System.Linq; using System.Text; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using
ASP.NET通过IP地址获取归属地的最…
ASP.NET通过IP地址获取归属地的最简单的方法 Posted on 2010-09-12 09:40 ―=〉★〈=― 阅读(1038) 评论(0) 编辑 收藏      首先得先下载两个文件; IPLocation.dll[IP库操作封装],qqwry.dat[IP库文件] 这两个文件在示例源码里都可以找到。 通过访客的IP地址，根据QQ的纯真IP库，通过封装库快速获取归属地信息。 关键
asp.net 操作数据库最简方法- -
从asp 转到asp.net 的数据操作上,微软在设计上给了我们更多可选择余地. 但是,麻烦随之而来,出现便多语句需要我们去写.所以我对最常用的DataReader和Js 进行封装,得到现在这个DataJs.dll 可以做为数据库操作基础类进行应用,目前只支持Access 和SqlServer 两个数据库. 因为能力水下有限,现在将其源码公布只做互相学习之用(下面有应用实例),同时希望各位高手
ASP.NET Web应用程序修改页面Inherits示例
<@page 中 Codebehind 、Inherits 和aspx的关系 CodeBehind指定包含与页关联的类的已编译文件的名称。该属性不能在运行时使用。 说明：提供此属性是为了与以前版本的 ASP.NET 的兼容，以实现代码隐藏功能。在 ASP.NET 2.0 版中，应改用 CodeFile 属性指定该源文件的名称，同时使用 Inherits 属性指定该类的完全限定名称。...
mvc请求过程总结
前言 最近在思考一个问题，我的学习方法一般主要是看博客来学习新东西，但是光看，基本也没总结过，所以经常会出现这样的问题，某个知识点我知道，但是就是不能很好的表达出来，很简单的东西往往都不知道如何简短精炼的阐述清楚。所以我想到应该每天抑或是经常性的总结近期学到的知识，这样既可以巩固知识又可以提高语言的组织能力。 MVC的请求过程 有些比较细节的地方直接忽略了，我主要摸索它...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章