急!!!求 VB.NET 流程图...
谁能帮我把这段程序的流程图画出来?谢谢!!!<%@PageLanguage="VB"ContentType="text/html"ResponseEncoding="gb...
谁能帮我把这段程序的流程图画出来?谢谢!!!
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<MM:DataSet
id="userData"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_ADconn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_ADconn") %>'
CommandText='<%# "SELECT * FROM aduser WHERE usename = ? AND Pass=?" %>'
Debug="true"
><Parameters>
<Parameter Name="@usename" Value='<%# IIf((Request.Form("usename") <> Nothing), Request.Form("usename"), "") %>' Type="WChar" />
<Parameter Name="@Pass" Value='<%# IIf((Request.Form("Pass") <> Nothing), Request.Form("Pass"), "") %>' Type="WChar" />
</Parameters></MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<script runat="server">
Sub page_load(Src As Object, E As EventArgs) '页面载入时触发事件
If userData.recordcount>0 AND Session("DrNum")=Request.Form("valicode") Then
Session("usename")= userData.FieldValue("USENAME", nothing)
response.redirect("admin.aspx")
End If
End Sub
</script> 展开
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<MM:DataSet
id="userData"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_ADconn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_ADconn") %>'
CommandText='<%# "SELECT * FROM aduser WHERE usename = ? AND Pass=?" %>'
Debug="true"
><Parameters>
<Parameter Name="@usename" Value='<%# IIf((Request.Form("usename") <> Nothing), Request.Form("usename"), "") %>' Type="WChar" />
<Parameter Name="@Pass" Value='<%# IIf((Request.Form("Pass") <> Nothing), Request.Form("Pass"), "") %>' Type="WChar" />
</Parameters></MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<script runat="server">
Sub page_load(Src As Object, E As EventArgs) '页面载入时触发事件
If userData.recordcount>0 AND Session("DrNum")=Request.Form("valicode") Then
Session("usename")= userData.FieldValue("USENAME", nothing)
response.redirect("admin.aspx")
End If
End Sub
</script> 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询