锐客网

  1. 首页 > 睿知 > >

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

睿知经验分享

1，高分求一段简单的ASP代码急你说的有点迷糊 。你是不是想动态取得这个图片名称 。然后显示出来啊 。。那样的话用js实现吧 。或者你规定好用 request.form获取下 。这算什么，<%select case datecase #december,30,2011#,显示这天的图片case …………end select【简单的代码，高分求一段简单的ASP代码急】
2，写一个简短的C语言代码1234567891011121314151617#include <stdio.h> int main() double a,b,c; scanf("%lf",&a); scanf("%lf",&b); c=a+b; printf("first number:%.2lf",a); printf("\nsecond number%.2lf",b); printf("\n\t%.2lf",a); printf("\n+\t%.2lf",b); printf("\n-------------\n"); printf("%.2lf\n",c); return 0;}
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 ， 最简单的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语言5，找高手写代码C或JAVA都行 写个简单的DEMO代码你好！商店买猫和狗的条件是什么？如有疑问，请追问 。这个看起来让人好纠结，问题可以详细点吗？public class Demo extends Thread public static void main(String args[])int cat = 2;int dog = 1;while(true)try//5秒Thread.sleep(5000);cat++;System.out.println("cat-------"+cat);//累计上次，相当于十秒Thread.sleep(5000);cat++;if(dog==2)dog++;cat--;}System.out.println("dog-------"+dog);} catch (InterruptedException e)e.printStackTrace();}} }}6，VB高手进求一个简单计算器的VB代码我写的 一个简单的代码，public h as integer public a as single public k as integer private sub command1_click(index as integer) x = index select case x case 0 if h = 1 then text1.text = "" h = 0 text1.text = text1.text + "0" case 1 if h = 1 then text1.text = "" h = 0 h = 0 text1.text = text1.text + "1" case 2 if h = 1 then text1.text = "" h = 0 text1.text = text1.text + "2" case 3 if h = 1 then text1.text = "" h = 0 text1.text = text1.text + "3" case 4 if h = 1 then text1.text = "" h = 0 text1.text = text1.text + "4" case 5 if h = 1 then text1.text = "" h = 0 text1.text = text1.text + "5" case 6 if h = 1 then text1.text = "" h = 0 text1.text = text1.text + "6" case 7 if h = 1 then text1.text = "" h = 0 text1.text = text1.text + "7" case 8 if h = 1 then text1.text = "" h = 0 text1.text = text1.text + "8" case 9 if h = 1 then text1.text = "" h = 0 text1.text = text1.text + "9" case 14 j = 1 case 10 a = val(text1.text) text1.text = "" k = 1 case 11 a = val(text1.text) text1.text = "" k = 2 case 12 a = val(text1.text) text1.text = "" k = 3 case 13 a = val(text1.text) text1.text = "" k = 4 end select end sub private sub command2_click() if k = 1 then text1.text = str(a + val(text1.text)) if k = 2 then text1.text = str(a - val(text1.text)) if k = 3 then text1.text = str(a * val(text1.text)) if k = 4 and val(text1.text) <> 0 then text1.text = str(a / val(text1.text)) if val(text1.text) = 0 then text1.text = "除数不可以是零" h = 1 end sub7，简易计算器代码以前做了一个，不知道合不合阁下的意思......代码如下：<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/gkrj/shjy/result;a="0";break;case "2":result=num1-num2;document.form1.textfield3.value=http://www.lisdn.com/gkrj/shjy/result;a="0";break;case "3":result=num1*num2;document.form1.textfield3.value=http://www.lisdn.com/gkrj/shjy/result;a="0";break;case "4":result=num1/num2;document.form1.textfield3.value=http://www.lisdn.com/gkrj/shjy/result;a="0";break;default:document.form1.textfield3.value=http://www.lisdn.com/gkrj/shjy/("请问您要执行哪种运算？");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/gkrj/shjy/+" onclick="plus()"/><input type="button" name="button2" id="button2" value="http://www.lisdn.com/gkrj/shjy/-" onclick="subtract()"/><input type="button" name="button3" id="button3" value="http://www.lisdn.com/gkrj/shjy/*" 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/gkrj/shjy/="=" 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

    推荐阅读


    上一篇：怎么制作一款app软件，如何制作手机app

    下一篇：网络营销职能分析,简述网络营销的职能