<style type="text/css">
<!--
body { font-size: 11 pt; 
font-family: 新细明体, 细明体, Mingli, Verdana, Arial, Helvetica }
-->
<!--
table { font-size: 11 pt; 
font-family: 新细明体, 细明体, Mingli, Verdana, Arial, Helvetica }
-->
</style>
<style type="text/css">
<!--
font {  font-size: 13px; line-height: 13pt}
.t1 {  font-size: 10pt; line-height: 16px}
.t2 {  font-size: 11pt; color: #C62F2B}
BODY {
scrollbar-face-color: FBFB97;
scrollbar-shadow-color: #996633;
scrollbar-highlight-color: #CCEEFF;
SCROLLBAR-3DLIGHT-COLOR: black
scrollbar-darkshadow-color: White;
scrollbar-track-color: FEFEDA;
scrollbar-arrow-color: Red}
.t3 {  color: #000000; font-size: 12pt}
.t4 {  font-size: 11pt}
-->
</style>
<script language="VB" runat="server">
	Public nowF as String
	Sub Page_Load(sender As Object, e As EventArgs)
		Dim x as string
			if Instr(Page.Request.RawUrl,"(")>0 then
				x=Left(Page.Request.RawUrl,Instr(Page.Request.RawUrl,"(")-1) & Right(Page.Request.RawUrl,Len(Page.Request.RawUrl)-Instr(Page.Request.RawUrl,")")-1)
			else
				x=Page.Request.RawUrl
			end if
		NowFile.Text=Page.Request.ServerVariables("PATH_TRANSLATED")
		If Instr(NowFile.Text,"\cs\")>0 then'若为C#范例
			EXC.Visible=False
			EXV.Visible=True
			EXV.NavigateURL=Replace(x,"/cs/","/vb/")
			EX1.NavigateURL="/aspnetdata/showS.aspx?cate=c&file=" & request.servervariables("PATH_TRANSLATED")
			EX2.NavigateURL="/aspnetdata/showS.aspx?cate=c&file=" & Replace(request.servervariables("PATH_TRANSLATED"),"\cs\","\vb\")
		else'若为VB范例
			EXC.Visible=True
			EXV.Visible=False
			EXC.NavigateURL=Replace(x,"/vb/","/cs/")
			EX2.NavigateURL="/aspnetdata/showS.aspx?cate=c&file=" & request.servervariables("PATH_TRANSLATED")
			EX1.NavigateURL="/aspnetdata/showS.aspx?cate=c&file=" & Replace(request.servervariables("PATH_TRANSLATED"),"\vb\","\cs\")
		end if
	End Sub
</script>
<asp:hyperlink Text="查看C#源代码" ID="EX1" NavigateURL="" runat="server" target="_blank"/>
<asp:hyperlink Text="查看VB源代码" ID="EX2" NavigateURL="" runat="server" target="_blank"/>
<asp:hyperlink Text="执行C#范例" ID="EXC" NavigateURL="" runat="server" />
<asp:hyperlink Text="执行VB范例" ID="EXV" NavigateURL="" runat="server" /><br>
目前文件：<asp:label id="NowFile" Runat="server" />
<h3 align="center"><img border="0" src="/aspnetdata/images/book.gif" width="465" height="45" ></h3>              
<hr>