锐客网

  1. 首页 > 睿知 > >

简单代码，高分求一段简单的ASP代码急

经验分享睿知

1，高分求一段简单的ASP代码急你说的有点迷糊 。你是不是想动态取得这个图片名称 。然后显示出来啊 。。那样的话用js实现吧 。或者你规定好用 request.form获取下 。这算什么，<%select case datecase #december,30,2011#,显示这天的图片case …………end select【简单代码，高分求一段简单的ASP代码急】
2，最简单的C语言代码最简单的C语言代就是输出“helloWord”，通常是作为初学编程语言时的第一个程序代码 。具体代码如下：#include <stdio.h>int main()printf("Hello, World! \n");return 0;}扩展资料：1、程序的第一行#include <stdio.h>是预处理器指令，告诉 C 编译器在实际编译之前要包含 stdio.h 文件 。2、下一行intmain（）是主函数，程序从这里开始执行 。3、下一行printf（．．．）是C中另一个可用的函数 ， 会在屏幕上显示消息＂Hello ， World?。?。4、下一行return0；终止main（）函数 ， 并返回值0 。参考资料来源：百度百科-c语言
3，请大侠帮我写一段简单的代码ASP代码 当两个域名指向同一个主机时,可以自动重定向到相应的域名网站 <%ASP代码起始标识取得HTTP输入的值并付值到HTOST中host=lcase(request.servervariables(”HTTP_HOST”))开始条件跳转Select CASE host 如果HOST的值是www.mg86.com就选择事件case”www.mg86.com“的命令CASE “www.mg86.com”response.redirect 是URL转跳代码 。response.redirect “www/”CASE “mg86.com”response.redirect “/”END Select%>asp还是asp.net的这个代码以前好像见到过，忘记了 。
4，简单的代码是什么简单的代码是利用随机数猜大小，内容如下：1、代码的第一行，是一个include语句 。没有它我们的程序会编译不过 。有了它就是告诉编译器在对代码进行编译之前 ， 必须要包含程序需要的文件 。这里的stdio.h就是我们需要的头文件 。2、代码第二行是一个main函数，这个main函数的返回值是一个int整型数据 。刚开始学习编程的时候我们可以认为程序运行的时候是从main函数开始的 。后续会专门给大家做一个介绍向大家说明在main函数之前还做了哪些事情 。3、每个函数都用一对“｛}”进行包含，表示着函数体的开始和结束，当然后面说到控制语句的时候它还表示一段控制语句的开始和结束 。4、main函数中调用了一个printf函数 。它是用来向控制台输出我们想要的内容 。printf的函数定位格式为：int printf(constchar*format,...) 。format中定义了输出内容和格式 。5、return函数执行完后 。在退出函数体之前，会将函数进行返回 。return后的内容根据函数返回值定义而定 。在本段程序中返回的是整型数据0 。5，简易计算器代码以前做了一个，不知道合不合阁下的意思......代码如下：<html><head><title>低b计算器</title><script language="javascript" type="text/javascript">var a;function t()var num1=parsefloat(document.form1.textfield.value);var num2=parsefloat(document.form1.textfield2.value);var result;switch(a)case "1":result=num1+num2;document.form1.textfield3.value=http://www.lisdn.com/mnsj/hhwd/result;a="0";break;case "2":result=num1-num2;document.form1.textfield3.value=http://www.lisdn.com/mnsj/hhwd/result;a="0";break;case "3":result=num1*num2;document.form1.textfield3.value=http://www.lisdn.com/mnsj/hhwd/result;a="0";break;case "4":result=num1/num2;document.form1.textfield3.value=http://www.lisdn.com/mnsj/hhwd/result;a="0";break;default:document.form1.textfield3.value=http://www.lisdn.com/mnsj/hhwd/("请问您要执行哪种运算？");break;}}function plus()a="1";}function subtract()a="2";}function multiply()a="3";}function divide()a="4";}</script></head><body><form id="form1" name="form1" method="post" action=""><label><input type="text" name="textfield" id="textfield" /><br /><input type="button" name="button" id="button" value="http://www.lisdn.com/mnsj/hhwd/+" onclick="plus()"/><input type="button" name="button2" id="button2" value="http://www.lisdn.com/mnsj/hhwd/-" onclick="subtract()"/><input type="button" name="button3" id="button3" value="http://www.lisdn.com/mnsj/hhwd/*" onclick="multiply()"/><input type="button" name="button4" id="button4" value="http://www.lisdn.com/" onclick="divide()"/><br /></label><label><input type="text" name="textfield2" id="textfield2" /><br /><input type="button" name="button5" id="button5" valuehttp://www.lisdn.com/mnsj/hhwd/="=" onclick="t()"/><br /></label><label><input type="text" name="textfield3" id="textfield3" /><br /></label></form></body></html>虽然简易，不过我花了一天才做好 。首先text1.text的enable属性为falseform1的maxbuttun属性为falseDim a(3) As DoubleDim c As IntegerDim b As BooleanDim d As StringDim e As BooleanPrivate Sub Command10_Click()/*命名为“零”的command*/If b ThenText1.Text = Text1.Text & "0"ElseIf Text1.Text = "0." ThenElseIf e = True ThenText1.Text = "0."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "0" & "."End IfEnd SubPrivate Sub Command11_Click()*/命名为“点”的commond/* b = TrueEnd SubPrivate Sub Command12_Click()*/命名为“等于”的commond/* If c = 0 ThenElsea(2) = Val(Text1.Text)If c = 1 Thena(3) = a(1) + a(2)If InStr(a(3), ".") = 1 ThenText1.Text = "0" & a(3)ElseIf InStr(a(3), ".") = 0 ThenText1.Text = a(3) & "."ElseText1.Text = a(3)End IfElseIf c = 2 Thena(3) = a(1) - a(2)If InStr(a(3), ".") = 1 ThenText1.Text = "0" & a(3)ElseIf InStr(a(3), ".") = 0 ThenText1.Text = a(3) & "."ElseText1.Text = a(3)End IfElseIf c = 3 Thena(3) = a(1) * a(2)If InStr(a(3), ".") = 1 ThenText1.Text = "0" & a(3)ElseIf InStr(a(3), ".") = 0 ThenText1.Text = a(3) & "."ElseText1.Text = a(3)End IfElseIf c = 4 ThenIf a(2) = 0 Thend = MsgBox("除数为零！", "64", "错误")Elsea(3) = a(1) / a(2)If InStr(a(3), ".") = 1 ThenText1.Text = "0" & a(3)ElseIf InStr(a(3), ".") = 0 ThenText1.Text = a(3) & "."ElseText1.Text = a(3)End IfEnd IfEnd IfEnd Ifc = 0b = Falsee = TrueEnd SubPrivate Sub Command13_Click()*/命名为“加”的commond/* c = 1a(1) = Val(Text1.Text)b = Falsee = TrueEnd SubPrivate Sub Command14_Click()*/命名为“减”的commond/* c = 2a(1) = Val(Text1.Text)b = Falsee = TrueEnd SubPrivate Sub Command15_Click()*/命名为“乘”的commond/* c = 3a(1) = Val(Text1.Text)b = Falsee = TrueEnd SubPrivate Sub Command16_Click()*/命名为“除”的commond/* c = 4a(1) = Val(Text1.Text)b = Falsee = TrueEnd SubPrivate Sub Command17_Click()*/命名为“清空”commond/* c = 0b = Falsee = FalseText1.Text = "0."End SubPrivate Sub Command2_Click()*/命名为“二”的commond/* If b ThenText1.Text = Text1.Text & "2"ElseIf Text1.Text = "0." ThenText1.Text = "2."ElseIf e = True ThenText1.Text = "2."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "2" & "."End IfEnd SubPrivate Sub Command3_Click()*/命名为“三”的commond/* If b ThenText1.Text = Text1.Text & "3"ElseIf Text1.Text = "0." ThenText1.Text = "3."ElseIf e = True ThenText1.Text = "3."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "3" & "."End IfEnd SubPrivate Sub Command4_Click()*/命名为“四”的commond/* If b ThenText1.Text = Text1.Text & "4"ElseIf Text1.Text = "0." ThenText1.Text = "4."ElseIf e = True ThenText1.Text = "4."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "4" & "."End IfEnd SubPrivate Sub Command6_Click()*/命名为“六“的commond/* If b ThenText1.Text = Text1.Text & "6"ElseIf Text1.Text = "0." ThenText1.Text = "6."ElseIf e = True ThenText1.Text = "6."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "6" & "."End IfEnd SubPrivate Sub Command7_Click()*/命名为“七”的commond/* If b ThenText1.Text = Text1.Text & "7"ElseIf Text1.Text = "0." ThenText1.Text = "7."ElseIf e = True ThenText1.Text = "7."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "7" & "."End IfEnd SubPrivate Sub Command8_Click()*/命名为“八”的commond/* If b ThenText1.Text = Text1.Text & "8"ElseIf Text1.Text = "0." ThenText1.Text = "8."ElseIf e = True ThenText1.Text = "8."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "8" & "."End IfEnd SubPrivate Sub Command9_Click()*/命名为“九”的commond/* If b ThenText1.Text = Text1.Text & "9"ElseIf Text1.Text = "0." ThenText1.Text = "9."ElseIf e = True ThenText1.Text = "9."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "9" & "."End IfEnd SubPrivate Sub Command1_Click()*/命名为“一”的commond/* If b ThenText1.Text = Text1.Text & "1"ElseIf Text1.Text = "0." ThenText1.Text = "1."ElseIf e = True ThenText1.Text = "1."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "1" & "."End IfEnd SubPrivate Sub Command5_Click()*/命名为“五”的commond/* If b ThenText1.Text = Text1.Text & "5"ElseIf Text1.Text = "0." ThenText1.Text = "5."ElseIf e = True ThenText1.Text = "5."e = FalseElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "5" & "."End IfEnd SubPrivate Sub Form_Load()c = 0b = Falsee = FalseText1.Text = "0."End Sub

    推荐阅读


    上一篇：ios微信双开 免费，苹果手机微信怎么多开账号 免费使用

    下一篇：数据库使用的软件有哪些，数据库软件都有那些